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Porque tem um sistema de 
cabeçote próprio para 
o uso em micros. O gravador 
National RQ-2222 tem um 
contador de fita que facilita 
a localização do programa a 
ser utilizado. E tem também 
um comando único para 
gravação tipo 4 ‘Um Toque 5 
muito mais prático. Um 
gravador que vive na memó¬ 
ria do computador merece 
também viver na sua. 

Grave este nome: National 
RQ-2222. 


Asegunda 
memona do seu 
computador, 
gravador National 


O gravador 
National RQ-2222 
é o preferido 
pelos usuários de micro¬ 
computadores. Ele grava e 
carrega programas com 
a mais alta fidelidade e com 
a maior economia. 


National 


Produzido na Zona Franca de Manaus. Conheça o Amazonas. 



I uem imaginar que o desenvolvimento da comunicação 
I homem/máquina, através de computadores pessoais, se esgota no atual 
estágio tecnológico e científico da informática está muito enganado. 

Softwares, hardwares e sistemas operacionais são desenvolvidos cada vez mais 
para, além de responder às necessidades do mercado, abrir novas 
possibilidades de utilização. 

Este é o caso do CP 500 modelo M8Ü, último lançamento da CP 
Computadores Pessoais: este equipamento possui um dos mais poderosos 
sistemas operacionais, o SOG8, que permite a utilização da maior biblioteca 
de software do mundo e a formação de eficientes redes de computação. 

Neste número, a Geração Prológica publica as características desta nova 
máquina e suas possibilidades de software. Mas as informações não param 
por aí: ensinamos como transformar seu computador pessoal num piano, num 
controlador de luzes, portas, televisores e segredos de cofres, além de dicas do 
comando POKE. Tudo isso com um único objetivo: facilitar e desenvolver a 
comunicação homem/máquina. 

Carlos Roberto A , Gauch 
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CURSOS 


Redes Locais de Computadores — 
Dias: 19 e 20 de agosto. Taxa: 50 
ORTW*$, Mais informações pelos te¬ 
lefones: 286-6891/226-2913. O cur¬ 
so é ministrado pelo IBP! — Insti¬ 
tuto Brasileiro dç Pesquisa em Infor¬ 
mática — Rua Mena Barreto, 77 — 
Rio de Janeiro, 

Planejamento de Informática na 
EmpFesa — Dias: 18 a 20 de setem¬ 
bro. Taxa: 60 ORTN*s. Mais infor¬ 
mações pelos telefones: 286-6891/ 
226-29 1 3. 0 c u rso é min ist rado pelo 
IBPI — Instituto Brasileiro de Pes¬ 
quisa em Informática — Rua Mena 
Barreto, 77 — Rio de Janeiro. 

Supervisicalç — Dias: 22e23 de ju¬ 
lho. Horário: 8:30 às J 7:30. Taxa: 35 
ORTNPs. SPCI - São Paulo Com¬ 
puter Institute — Avenida Rebou- 
ças, 1669 — São Paulo — telefone: 
883-0355. 

Introdução ao Micro para Secretá¬ 
rias Executivas — Dias: 8 a 10 e 15 
dejunhoaTdejulho. Horário: 18:30 
às 22:00. Taxa: 38 ORTN 's. SPCI — 
São Paulo Computer Institute — 
Avenida Rebouças, 1669 — São 
Paulo — telefone: 883-0355. 

Introdução ao dBase III — Dias: 15 
e 16 de julho. Horário: 8:30às 17:30. 
Taxa: 45 ORTNPs, SPCI — São Pau¬ 
lo Computer Institute — Avenida 
Rebouças, 1 669 — São Paulo — te¬ 
lefone: 883-0355. 


-Wordstar — Dias: 17 e 18 de jülho. 
Horário: 8:30 às 17:30, Taxar 35 
ORTN ? s, SPCI — São Paulo Com^ 
puter Institute — Avenida Rebo li¬ 
ças, 1669 — São Paulo — telefone: 
883-0355. 

C* a Linguagem do Futuro — Dias: 
10 a 12 de julho. Taxa de inscrição: 
50ORTN + s. Período: diurno. O cur¬ 
so é oferecido pela Compucemer Mi- 
croinformática — Rua Bela Cintra, 
746 — 3? andar — telefone: (011) 
257-0577/255-5988 — São Paulo. 

Conhecendo o Unix — Dias: 8 a 12 
de julho no período noturno: 29 a 30 
de julho no período diurno. Taxa de 
inscrição; 40 ORTNPs. Compucemer 
Microinform ática — Rua Bela Cintra, 
746 — 3? andar — telefone: (011) 
257-0577/255-5988 — São Paulo. 

Microcomputadores para Sistema 
Distribuído — Dias: 15 a 17 fie ju¬ 
lho. Período: diurno. Taxa de inscri¬ 
ção: 60 QRTN T s. Compucemer Mí- 
croin forni ática — Rua Bda Cintra, 
746 — 3? andar — telefone: (011) 
257-0577/255-5988 - São Paulo. 

dBase 3 o Banco de Dad os para PCs 

— Dias: 18 e 19 de julho. Perío¬ 
do: diurno. Taxa de inscrição: 20 
GRTN’s. Compucemer Microinfor- 
mática — Rua Bela Cintra, 746 — 3? 
andar — telefone: (011) 257-0577/ 
255-5988 - São Paulo. 

Introdução aos Micros — Dias: 29 
e 30 de julho. Período: diurno. Ta¬ 
xa de inscrição: 20 ORTNPs. Com- 
pucenter Micro informática — Rua 
Bela Cintra, 746 — 3? andar — tde- 



Batalha Naval 


Sou assinante da Geração Prológi- 
ca e estou muito satisfeito com as ma¬ 
térias publicadas. Tanto, que estou até 
fazendo propaganda entre os amigos 
possuidores de computadores pessoais. 


Amigos, na verdade, estou escre¬ 
vendo para pedir uma informação so¬ 
bre o programa BATALHA NAVAL, 
publicado na GP n? 9: quando termi¬ 
nei de digitar a Unha 640, verifiquei 
que a linha 650 estava incompleta, ou 
seja, falta o destino do 1“ GOSUB, 
Gostaria da resposta o mais breve pos¬ 
sível, pois eu e minha esposa somos fa¬ 
náticos por este jogo. 

Sem mais, abraços e parabéns pelo 
belo trabalho, em nome de todos os 
usuários Prológica, 

Gilberto Martins Loureiro — 
São João da Meriü — RJ 
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fone: (011) 257-0577/255-5988 — 
São Paulo — SP. 

Ptanej amen to para Micro informáti ¬ 
ca — Dias: 15 a 19 de julho. Perío¬ 
do: noturno. Taxa de inscrição: 40 
ORTN’s, Compucenter Microinfor- 
mática — Rua Beia Cintra, 746 3? 

andar — telefone: (011) 257*0577/ 
255-5988 — Sào Paulo. 

Iniciação do dBase 2 — Dias: 22 a 23 
de julho. Taxa de inscrição: 30 
ORTNY Compucenter Micro infor¬ 
mática — Rua Bela Cintra, 746 — 3? 
andar — telefone: (011) 257- 
0577/255-5988 — São Paulo. 

CPM Avançado — Días: 25 e 26 de 
julho. Taxa de inscrição: 4ÜORTN , s. 
Compucenter Mieroinformática — 
Rua Beia Cintra, 746 — 3? andar —- 
telefone: (011) 257-0577/255-5988 
— São Paulo. 


EVENTOS 


Informática 85 — A V Feira Inter¬ 
nacional dc Informática, Telecomu¬ 
nicações, Organização e Equipa¬ 
mentos de Escritório, ou simples¬ 
mente Informática 85 P será realiza¬ 
da de 23 a 29 de setembro no Parque 
Anhembi, em Sào Paulo. Paralela¬ 
mente à Feíra, será realizado o 18? 
Congresso Nacional de Informática. 
O programa, ainda incompleto, de¬ 
verá incluir temas como informáti¬ 
ca e soberania nacional, automação 
bancária, automação industrial, pri¬ 
vacidade em bancos de dados etc. 


Amigo Gilberto, ficamos felizes por 
você estar satisfeito com nosso traba¬ 
lho c esperamos sempre estar à altura 
de suas necessidades. Quanto ao pro¬ 
grama BATALHA NAVAL, a linha 
650 deve ser digitada da seguinte forma: 
650 NX = RND(4):GOSUB 1290 :IF JP- 1 
THEN 650 

E deve-se induir a seguinte linha: 
141§ ON NX GOTO 1420, 1430, 1440, 
1450 

Pedímos desculpas peio atraso na res¬ 
posta, mas enviamos as informações 
solicitadas pelo correio e a carta vol¬ 
tou por incorreções no endereço. 


Velocidade no CP 200 


Possuo um computador pessoal CP 
200 e necessito gravar em fitas diver¬ 
sos artigos; por isso, preciso dc infor¬ 
mações sobre como tornar meg CP 
mais rápido, 

Francisco Oswaldo Castettucci filho — 
Aramquara — SP 



Francisco, o CP 200 apresenta duas 
funções de armazenamento, com duas 
velocidades: rápida (quick storage) e 
alta velocidade (speed storage). Os co¬ 
mandos de speed storage aumentam 14 
vezes a velocidade de gravação e leitu¬ 
ra, facilitando e agilizando a operação 
com o gravador cassete. 

Existem t rês comandos disponíveis 
no modo de alta velocidade (speed 
storage): 

Gravação (SSAVE) 

Verificação (SCHECK) 

Leitura (SLOAD) 

A escolha dos comandos é efetua¬ 
da através do menu c para se ter aces¬ 
so a de, digite o seguinte comando: 
RAND USR 8200 

Após pressionar ENTER, aparece¬ 
rá o seguinte comando na tela: 

Você deseja: LER 

GRAVAR 

VERIFICAR 

? 

Para selecionar uma dessas operações, 
pressione a tecla correspondente (L, G 
ou V). Após os comandos L ou G, 
aparecerá na tela o seguinte comando: 
DIGITE O NOME OO PROGRAMA 

Selecionando L ou G, se quiser dar 
um nome ao programa, digite-o, no 
máximo, com seis caracteres. Senão, 
pressione ENTER para a operação ser 
iniciada. Mas, atenção: antes de teclar 
ENTER, acione PLAY/RECORI) no 
gravador, para que você não perca 
parte do programa. 

Selecionando V, c feita uma com¬ 
paração do programa que está na me¬ 
mória do computador com o que esta 
na fita. Para tanto, posicione a fita no 
começo do programa em questão. 


acione PLAY e digite V, para ini¬ 
ciar a gravação. 

Neste processo, a gravação e leitu¬ 
ra são executadas em velocidades mui¬ 
to maiores que o normal, por isso o 
sistema dc reprodução é muito exigi¬ 
do. Para que você não tenha proble¬ 
mas, mantenha o cabeçote de gra¬ 
vação sempre limpo e utilize somente 
fitas de boa qualidade. 


Memória do CP 200S 


Gostaria de receber as seguintes trt- 
formações: conto se copia fita de pro¬ 
grama e possibilidades de expansão da 
capacidade de memória do CP 200b. 

A ntonio Carlos M, Silva — 
São José dos Campos ~~ SP 

Caro Antonio Carlos, para se co¬ 
piar fita de programa, siga a seguinte 
rotina: ajuste a tonalidade de seu gra¬ 
vador para 10 e o volume entre 7 e 8. 
Este volume pode ser alterado de acor¬ 
do com a gravação do programa ou a 
marca do gravador usado. 

Feito isso, tecle LOA IV”\ Posicio¬ 
ne a fita e pressione PLAY. Sc apare¬ 
cer na tela o código 0/0, a gravação foi 
bem sucedida. Então, pressione RUN 
para a execução do programa. 

Quanto à expansão de capacidade 
de memória, o CF 20OS possui um co¬ 
nector lateral que Fornece todos os si¬ 
nais necessários para se ter acesso dire¬ 
to ao microprocessador Z-80. A par¬ 
tir daí pode ser feita a expansão dc me¬ 
mória. Porém, no mercado, não há 
nenhum cartucho que possibilite esta 
expansão, que lerá de ser realizada pe¬ 
lo próprio usuário. 



As canas para a redação da Geração 
Prológiea deverão ser enviadas ao se¬ 
guinte endereço: 

Editele — Editora Técnica Eletrônica 
Ltda. — Rua Casa do Ator, 1060 — 
CEP 04546 — São Paulo — SP 
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SOFTWARE HOUSES 

PROGRAMAS DISPONÍVEIS N O MERCÁDÕp 


Com o sistema opera cional S Q0 8, co mpatív el com 
o CP/M, o usuário tem à sua disposiçã o a mais 
vasta biblioteca de programas profissionais. 
Neste número, os softwares da Nasajon Sistemas. 


Mala Direta 
com Editor de Textos 

Permite o eadastramemo de clientes 
com seus dados principais, lais como: 
nome, endereço, tipo, data de nasci¬ 
mento eic., paraposierioraIteração,ex¬ 
clusão e consulta. Fornece relatórios de 
todos os clientes do cadastro ou apenas 
os selecionados pelo operador. Emhe 
etiquetas nos tamanhos pequeno, mé¬ 
dio c grande, para endereçamento pos¬ 
tal. Com o Editor de Textos é possível 
criar e armazenar textos para serem 
emitidos para os clientes selecionados. 


Contabilidade Geral 


Fornece saldos parciais com apuração 
de receitas e despesas, balancete com¬ 
parativo com o mês correspondente ao 
exercício anterior e relatórios na impres¬ 
sora, Apresenta um plano de contas em 
cinco níveis, relação de históricos pa¬ 
drões, lançamentos, extratos de contas, 
balancetes de verificação, abertura e fe¬ 
chamento de diário, livro diário, balam 
eete mensal, balanço geral, demonstra¬ 
ção de resultados do exercício c apura¬ 
ção de resultados com manipulação de 
fórmulas a critério do operador. 


Folha de Pagamento 

A partir do eadastramemo de funcio¬ 
nários, emite listagens operacionais: da¬ 


dos da empresa, filiais, departamentos 
e seções, cargos e salários, bancos, ren¬ 
dimentos e descontos, lAPASe IR, ta¬ 
belas gerais, cartões de pomo e folha de 
pagamento, recibo de pagamento e re¬ 
lação para depósito bancário, relação 
dcsalário base, emissãodo RÂ1S, rela¬ 
ção de empregados, imposto de renda 
retido na fome anual, contribuição sin¬ 
dical, acumulados anuais c movimen¬ 
tação mensal. 


Crediário 


Através do eadastramemo dos clientes, 
com suas informações básicas, como 
nome, endereço, cidade etc., permite 
a geração de contratos para estes clien¬ 
tes, controlando as vendas a prazo. For¬ 
nece relatórios com a movimentação 
das vendas, clientes com pagamento cm 
atraso, movimento dos recebimentos 
pendentes por filial e geral, fichas indi¬ 
viduais de clientes, onde podem ser vi¬ 
sualizados o histórico, os dados gerais 
ea posição do contrato atual, relatório 
de comas a receber, emissão das I. ? e2? 
vias do carnê, listagem geral do cadas¬ 
tro c emissão de et iq uetas para mala di¬ 
reta com os contratos atrasados. 

Controle do 
Exigível/Disponível 

Controla os depósítos/saques em ban¬ 
cos, através dos lançamentos realiza¬ 


dos, a exigi bi Ei dade das contas a pagar, 
bem como as disponibilidades atuais c 
futuras (contas a receber). Permite a 
manutenção dos arquivos de bancos, 
classificações das contas a pagar/rece¬ 
ber. Emite relatórios operacionais on¬ 
de são visualizadas as contas a pagar/ 
receber, a disponibilidade no período, 
os Lotais do mes por classificação, a con¬ 
ciliação do período com todos os lan¬ 
çamentos realizados no mes, o movi¬ 
mento financeiro e o resumo dos saldos 
bancários. 


Controle de Projetos 


E composto por três subsistemas: con¬ 
trole de estoque, elaboração dc orça¬ 
mentos e controle de produção, Permítc 
a interligação com os sistemas de Con¬ 
tabilidade Geral, Departamento Pes¬ 
soal e Folha de Pagamento. Com o ea- 
dast ramento dos itens básicos, elemen¬ 
tos componentes de produtos, itens de 
grupo, conjunto de itens básicos,que 
compõe uma unidade padrão de medi¬ 
da, permite a composição da obra atra¬ 
vés da informação dos dados principais. 
Emite relatórios. Calcula orçamento, 
cm ite listagens, indica perceni uaís par¬ 
ciais c gerais. 

Maiores informações sobre estes e ou¬ 
tros programas na Nasajon Sistemas, 
Avenida Rio Branco, 45 — Grupo 1311 
— CEP 20.090—Rio de Janeiro-— Te¬ 
lefone: (021)263-1241. 
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REPORTAGEM DE CAPA 


P 50 ) 

MODELO M80 




0 CP 500 modelo M80 
é o profissional de sua 
categoria com a 
maior base de software 
em todo o mundo. 


O dinamismo do mercado de infor¬ 
mática no Brasil exige da indús¬ 
tria nacional soluções para necessida¬ 
des cada vez mais acentuadas, que 
caracterizam-se pela tendência de espe¬ 
cialização e profissionalização, pois a 
computação é uma das ferramentas 
mais utilizadas em todos os setores pro¬ 
fissionais ou atividades que exigem mais 
eficiência e agilidade. Em resposta a es¬ 
ta necessidade, a CP Computadores 
Pessoais desenvolveu o CP 500 mode- 
lo M80, o mais versátil e poderoso pro¬ 
fissional do mercado brasileiro. O M80, 
além de possuir todas as características 
anteriores do CP 500, também possibi¬ 
lita a operação com o Sistema Opera¬ 
cional 5008, desenvolvido pela CP e to¬ 
talmente compatível com o sistema mais 
di fundido e com maior base de softwa¬ 
re em todo o mundo: o CP/M. O 
CP 500 modelo M80 trabalha com um 
microprocessador Z 80, clock: 2,35 
MHz, memória 64 K no sistema 5008 
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REPORTAGEM DE CAPA 


e 48 K (RAM) e J6 K (ROM; no DOS 
500, Possui teclado capacitivo, o que 
garame mais de 10 milhões de operações 
em suas 64 teclas, além do teclado nu¬ 
mérico reduzido. 

A pesar de o CP 50U M8Ü também 
operar com o DOS 500, a gran¬ 
de vantagem do SOM é a capacidade do 
vídeo: 80x24, enquanto que no 
DOS 500 a capacidade é de 64 x 16 ou 
32 x 16. Mas as vantagens do MS0 não 
param no SO08. Como se trata de um 
equipamento profissional eeficiente, si¬ 
multaneamente com o CP 500 modelo 
M8Ü a CP coloca ã disposição do mer¬ 
cado a interface serial CP 532C para 
comunicação dc dados, printere outros 
periféricos q ue requerem este tipo de si- 
nal. O CP 532C pode ser facilmente ins¬ 
talado pelo usuário através de conector 
especifico, 

O M80 possui Lambem quatro ver¬ 
sões: (022) com um drive, face 
simples e capacidade de 175 Kbytes; 
(022D) com um drive, face dupla e ca¬ 
pacidade de 350 Kbytes; (023) com dois 
drives, face simples e capacidade de 
350 Kbytes; e (023D) com dois drives, 
face dupla e capacidade de 700 Kbytes. 


Produzido cm São Paulo, na unidade 
fabril da CP Computadores Pessoais, 
o CP 500 modelo MSOterá uma produ¬ 
ção aproximada de mil máquinas 
mensais. 

S egundo o Depananicmo de Pro¬ 
dutos da CP, o modelo M80 é a 
resposta da em presa às necessidades do 
mercado e, por isso mesmo* não custa¬ 
rá mais caro por causa das inovações, 
modernização e profissionalização do 
equipamento. Ao contrário, o M30 re¬ 
presenta a mais eficiente relação cus¬ 
to/benefício da sua categoria. 

J unto com o CP 500 modelo M8Ü, 
o usuário recebe os seguintes uti¬ 
litários para o SOG8; 

EDÍT2 — Editor de textos, 

P1P — Cópia de arquivos. 

ST AT — Consulta ao diretório, 
GERSTS — Programa gerador do Sis¬ 
tema Operacional 5008, 

SDBMIT e XSfJB — Programa para 
execução de vários comandos, sem a ne¬ 
cessidade de interferência do usuário. 
FORMSOO — Programa for matador de 
disquete. 

CONF50Ü — Programa que permite a 
configuração dos parâmetros do 5008. 


COPIA50Ü — Copiador de disquetes 
{baekup). 

O s softwares podem trabalhar cm 
35 trilhas, 10 setores por trilha e 
512 bytes por setor, com uma memória 
livre de aproximadamente 175 K, ou se¬ 
ja, igual à formatação do Sistema 700. 

C om este sofisticado modelo do 
CP 500, o usuário terá á sua dis¬ 
posição a maior biblioteca de software 
disponível no mercado, podendo ope¬ 
rar com os programas da linha do 
CP 500, do SO08 (CP/M), do Sistema 
700 e do Super 700, que vão desde so¬ 
fisticados editores de textose planilhas 
eletrônicas a programas de contabilida¬ 
de geral, folhas de pagamento, crediá¬ 
rio, controle de estoque, mala direta 
com editor de textos, controle do exigi- 
vel/disponível, controle de projetos, 
planejamento e controle dc produção 
com orçamento, ativo fixo, controle de 
custos e estoque para confecções, con¬ 
trole de reservas de hotéis, sistema de 
videoclubes, programas específicos pa¬ 
ra agricultura, engenharia, medicina, 
educação ou qualquer outra área pro¬ 
fissional. Na página Software Ho uses, 
uma seleção de programas compatíveis 
com o SO08. 


ACESSÓRIOS CP: A INTEGRAÇÃO NO MERCADO 



O desenvolvimento tecnológico 
dos equi pam entos d a C P Com put a- 
dores Pessoais tem como objetivo so¬ 
lucionar os problemas de todos os 
seus usuários, beneficiando-os com 
as m aís eficien t es u tilizações da com- 
put ação. 


Neste sentido, a empresa também 
está lançando a mais completa linha 
de acessórios, visando a integração 
dos quase 100 000 usuários de com¬ 
putadores pessoais de tecnologia 
Prológtea, com outros equipamen¬ 
tos disponíveis no mercado: 

* Cabos de Ligação CP 500 para 
Printers Paralelas; 


* Cabos de Ligação CP 300 para 
Printers Paralelas, 

* Cabos de Ligação P 500 para 
equipamentos Apple t 

* Cabos de Ligação P 500 para 
equipamentos IBM PC, 

* Cabos para Gravador/CP 200, 

* Cabos para Gravador/CP 300, 
400e500, 

* Cabos de Antena para 
CP 200, 300 e 400, 

* Cabos de Alimentação para 
CP 500, P 500 e P 720, 

* Cabos de Ligação CP 500 para 
P 500, 

* Cabos de Ligação Modem para In¬ 
terface RS 232C (Videotexto), 

* Fitas Prosoft para CP 2005, 

* Fitas Prosoft para CP 300 e 
CP 500, 

* Fitas Prosoft para CP 400, 

* Capas Protetoras para CP 200 e 
CP 300, 

* Capas Protetoras para CP 400, 

* Capas Protetoras para CP 500 e 

* Capas Protetoras para P 500. 
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A través do comando POK£ você tem várias possibilidades 

de software em seu computador pessoa!. _ 

Neste número, selecionamos várias dicas destes comandos 
enviadas pelos usuários membros do CLUBE CP’S. 

Atenção! Estas dicas foram testadas e aprovadas 
pela CP Computadores Pessoais. 


Dunid Wajngarten, estudante de 
São Paulo, enviou o seguinte comando 

POKE: 

Como bloquear o List do CP 400 
COLORr 

POKE 383,158 (para bloquear) 

POKE 383,0(para voltar ao normal) 

Luis Carlos Medi na, engenheiro de 
São Paulo, mandou a sua coleção de co¬ 
mandos PGKE: 

POKE 65495,0 

Aumenta a velocidade de todos os 
comandos ou funções. Não é compatí¬ 
vel com sistema em disco. 

Não pode ser usado durante leitura 
ou gravação de programas ou dados em 
fita cassete. 


POKE 65494,0 _ 

Retorna para normal após utilizar o 
comando POKE 65495,0, 

Ex.; 

PROGRAMA I 

10 FOR I = 1 TO 10000 
20 A - A + 1 
30 NEXT I 
40 PRINT A 
PROGRAMA 2 

5 POKE 65495.0 
10 FOR I = 1 TO 10000 
20 A = A + 1 
30 NEXT I 
40 PRINT A 
50 POKE 65494,0 

Note que o mesmo programa utili¬ 
zando a instrução POKE 35495,0 tem 
menor tempo de processamento. 


POKE 65497,0, 

Possibilita que a velocidade dos co¬ 
mandos ou f unções seja mais rápida que 
ao utilizar POKE 65495,0. 

Não pode ser utilizado durante lei¬ 
tura ou gravação dc programas ou da¬ 
dos em fita cassete. 

Desabilíta a emissão de dados no 
vídeo, 

POKE 654976,0. ~\ 

Retorna parao modo normal depois 
de utilizar POKE 65497,0. 

Ex.: 

PROGRAMA 3 

5 POKE 65497,0 
10 FOR I = 1 TO 10000 
20 A - A + 1 
30 NEXT I 
40 POKE 54496,0 
50 PRINT A 

Note que este programa demorara 
menos tempo de execução que os ante¬ 
riores. 

Observe que, apesar de o vídeo “de¬ 
saparecer” durante a execução dos cál¬ 
culos, estes são realizados normalincn- 
te e os dados são apresentados logo que 
o comando POKE 65496,0éexecutado. 


_ POKE 359,60. __ 

Mensagem de tela mais lema. Não 
compatível com disco, 

| POKE 359,0. 1 

Retorna ao modo normal depois dc 
se utilizar POKE 359,60. Impossibilida¬ 
de de E/S em disco. 


_ POKE 359,128. _ 

Produ/. diferentes caracteres gráfi¬ 
cos, pai a diferentes teclas. Não compa¬ 
tível com disco. 

POKE 359,126. “ 

Retorna ao normal após POKE 
359,128. 

Este comando, embora apareça co¬ 
mo caractere gráfico, será executado. 

j POKE 359,255. | 

Inibe o teclado 

| POKE 359.126. ~| 

Retorna ao modo normal após 
POKE 359,255. 

Classificados 
e Correspondências 

Haroldo S, Ferreira quer trocar pro¬ 
gramas c revistas para o CP 200* Os in¬ 
teressados deverão enviar correspon¬ 
dência para Caixa Postal 81-325 — 
27.500 — Resende — RJ, 

De ms Síheer Timm está querendo se 
corresponder com o usuário Frank, de 
Linhares (ES). No entanto, o Frank não 
deixou endereço aqui no CLUBE, por 
isso vamos publicar o endereço de De- 
nis, para que o nosso companheiro de 
Linhares se comunique com ele, OK? 

Alô, alô T Frank! Escreva para o De¬ 
nta (Rua Francisco Xavier de Barros, 
114 — 18.100 — Sorocaba — SP). 
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PARTE IV 


Consulta ou alteração nos dados do arquivo. 


Luiz Antouio Borba 


No número anterior, nós vimos como controlar a quan- 
tidade de registros que estavam gravados no arquivo; vere¬ 
mos agora, usando aquele mesmo parâmetro (número de 
registros), como fazer uma consulta ou alteração nos da¬ 
dos do arquivo. 

Apenas para lembrar, vejamos como começa o programa: 


10 CL EA R 2000:015; RESERVA ESPAÇO DE STRINC E APAGA A TECA 
20 - 1 

30 QPEN' L Fr,1ARGUI VQ/D AT \1 10 
40 FIELD 1 .2 AS fX$,l08 AS ZZS 

45 FIEiÜ 1.30 AS NGS.4Q AS ENS.13 AS TLS.20 AS CDS, 2 AS ESS, 

5 AS CPS 
50GET1.IX% 

60 IF EOFI1JTHEN 70 ELSE =CVI{IXS) 

70 CO NTI NU AC AO DO PROGRAMA 


Para fazermos uma alteração ou uma consulta dentro des¬ 
te nosso arquivo* devemos solicitar ao operador o número 
do registro a ser manipulado. Ao recebermos este número, 
devemos então compará-lo primei ram ente com zero; se is¬ 
to for verdade, o fluxo do programa deve voltar ao menu 
principal, se for falso, devemos efetuar a comparação com 
0 valor da variável IX%. Se o número fornecido for maior 
queíX%, devemos colocar na tela uma mensagem de erro, 
informando ao operador que este registm não existe. Se, 
por outro lado, o número dado pelo operador for menor 
ou igual <{ = ) a lX^o, basta fazermos um GETcomeste 
valor. No exemplo abaixo, imaginemos que o menu princi¬ 
pal tenha iniciado na linha 80: 


500 INPÜT' DIGITE O REGISTRO A SER CONSULTADO :R% 

510 IF R% =0 THEN BC ELSE 520 

520 IF R%< =IX% THEN 520 ELSE PR1NT‘ - REGISTRO NAO EXISTE. 

REDJGiTE :GOTO 500 
SGOGET 1.R% 


Nesie instante devemos colocar os dados deste registro 
na teia, para que o operador possa consultá-los. Será ne¬ 
cessário colocar também ao lado de cada dado (nome* en¬ 
dereço etc.) um número, para que, através deste, o opera¬ 
dor possa fazer a alteração desejada. Vamos ver como fica¬ 
ria a tela: 


TELA DE CONSULTAJ ALTERACAO 


(l)NOME 
FULANO DE TAL 
(2j ENDEREÇO 

RUA DAS CAMÉLIAS 1234 APTO 12 
(3) FONE; <011) 251*3433 (4) CEP: 04517 
(5) C IDADE : SAO PAU LO Í6) ESTADO: S F 
773" DESEJA ALTERAR (S/Nj? 


Este é apenas um exemplo que você pode usar para mon¬ 
tar a sua tela de consulta. O número que aparece entre as¬ 
pas na última linhada tela é o endereço para ser usado com 
o comando PR1NT@; que poderia ser usado da seguinte 
maneira: 


600 PRINTíí 778.-DÉSÉJA ALTERAR (S/N)"::INPUT ALS 
610 tF ALS = "N" THEN 500 ELSE 620 


No programa, devemos testar agora se o valor de ALS 
éigual a “S” ou M N f \ Se for igual a “N”* devemos voltar 
o fluxo do programa para uma nova entrada de número de 
registro; se Tor igual a “S”, devemos proceder à alteração. 

Para procederá alteração, devemos criar uma rotina, que 
coloque no mesmo endereço de tela (@778) a segui nte men¬ 
sagem: QUAL ITEM DESEJA ALTERAR (1 a 6)?; veja¬ 
mos como ficaria isto no programa: 


623 PR1NT&773/-QUAL ITEM DÉSEJA ALTERAR (1 3 
630 INPUT AL% 

640 ON AL% GOTO 700,800,^, ÍÜQQJ 100,1200 
650 GOTO 620 


Como o comando ON ... GOTO desvia o programa em 
função do valor de AL%, se AL% for menor que 1 ou maior 
que 6, o fluxo irá diretameme para a linha 650 onde o man¬ 
damos de volta à linha 620 para que o operador digite o va¬ 
lor correto. Tudo isto sem necessidade de usar o com ando 1F. 

No próximo número veremos como fazer e gravar estas 
alterações no nosso arquivo. 
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L Akernaak, um desafio à sua inteligência c imaginação. 

Um jogo de mistérios e situações fantásticas que você mes¬ 
mo deverá construir a partir de dados armazenados em seu 
computador CP 500 ou CP 300 ................. 2, 3, 4, 5 c 6 

2. Conlrole Bancário. 

0 software ideal para você esquecer os problemas com sua 
movimentação bancária. Para o CP 400 COLOR . 7 e 8 


3. Aterrissagem Lunar. 

Prove sua capacidade motora, perspicácia e agilidade com 
mais este jogo para seu CP 200 ..... 


S 











JOGO 


Akernaak, um desafio 
à sua inteligência e imaginação. 

CP 500 ou 300 48 Kb RAM 


Akernaak não é jogo de imagens on¬ 
de você tem que destruir mecanicamen¬ 
te figuras geométricas. Não! Akernaak 
é um jogo de mistérios e situações que 
você terá que construir. Como se fosse 
um livro onde os personagens criassem 
vida própria e o escritor não tivesse mais 
com role sobre eles. 

A história começa quando você che¬ 
ga em casa e percebe que entrou num 
mundo fantástico, controlado pelo Al¬ 
tar de Akernaak. Todos os nossos 
monstros e fantasias perdidas estão lá, 
escondidas atrás das portas, no escuro 
da despensa, nos corredores, nas som¬ 
bras da biblioteca ou do gramado. 
Ogros, duendes, magos, feiticeiros, ti¬ 
gres, fadas e guerreiros passeiam pela 
casa. Se você não tiver medo, poderá en¬ 
contrar várias armas de proteção, de¬ 


fesa e ataque espalhadas pelos 
cômodos. 

A sua história poderá ter um final 
inesperado, dependendo de sua capaci¬ 
dade de luta, descobertas e associação 
de situações pois para cada inimigo há 
uma arma adequada. O que você pode¬ 
rá fazer com um cetro de prata ou um 
número mágico? Em que guerreiro con¬ 
fiar? Como, enfim, libertar sua casa do 
poder fantástico de Akernaak? Para es¬ 
crever esta história, peça ajuda ao seu 
computador pessoal: ele lhe dará pala¬ 
vras-chave para o desenrolar da histó¬ 
ria. Mas aqui vai um conselho de quem 
já lutou muito com o misterioso Aker¬ 
naak: cuidado com a arcae como cam¬ 
po zero! No entanto, se eles forem ine¬ 
vitáveis em sua imaginação, não se es¬ 
queça nunca da chave, da capa magica 
e do espelho, pois estes objetos poderão 


lhe salvar a vida na luta contra os feiti¬ 
ceiros. 

Mas, talvez, você nem chegue a lu¬ 
tar contra um feiticeiro. Talvez um 
duende o mate logo na entrada da casa 
ou um tigre o fira mortalmente em seu 
quarto, pois você não pegou nenhuma 
arma pelo caminho. Mas, talvez, você 
consiga escrever sua história com um fi¬ 
nal feliz: a libertação de sua casado po¬ 
der de Akernaak. Quem pode saber? 
Afinal cada história é uma história. 

Digite corretameme a listagem em 
linguagem Basice “chame** Akernaak. 
Enquanto o computador “procura” o 
programa, não se preocupe se lhe pare¬ 
cer ouvir uma voz grave murmurando: 
“Você não deveria ter entrado aqui, po- 
bre mortal,./’ Éíudo imaginação! No 
entanto, por precaução, tome cuidado 
com o elfo que está no corredor.,. 


10 * ************##**#******-***** 
20 '* RKERNAHK * 

30 '* C-P. CÜMPUT- PESSOAIS * 

40 '* CP 300 / CP 500 * 

50 '*#*#******#**##***##*##**■*■*■* 

60 RRNDOM•CLS s CLERR20G0 
70 DEFINTB-Z=DEFSTRR s DIMMR(30),FP( 
30),VOCSt14)í0BJ$(30),L0$<Í9),DÍ19 
a) ,CF7.(1Q) ,BLí 10) 

3p FQRN=QT014:READVGOfc (N):NEXTN3 FQ 
RN=ÜT030:READOBJ* C N > =NEXTNs F0RN=QT 
019:RERDLQí(N>:NEXTN 
90 FÜRN-0TD30:NRCN)=RND(15)-1:NEXT 
N:F0RN-15TÜ19:D í N,0)=-1:D(N 5 1> =“1* 
NEXTN:D ( 16,0)=KNDí15)-1s D <16,1)-RN 
D(15)-1 

100 F0RN=24TQ30 3 MR(N)=~i:NEXTN:MA< 
2)=3 :MR ( 16) = 13:Mfl(15)=4 s MR(19)=-l: 
MR(4)= 15 s MR í 6)"16:K=RND( 2 )+14:MR< 7 
>=-i3 MR ( 11 ) =K : MR(3 ) =31-K 3 MA í13 )=-l 
S MR(17)=—13 MA( 27)=19 s MR{7)=1E 3MR í 2 
S)=1S 

110 F0RN=0T010 s READBL í N):NEXTN 
120 VE$= ir V0CE ESTR * " : VÜ$="VOCE ÜU 
VE " 

130 F0RN=0T014 

140 D(N,0 >=RND(15)-1:D C N,1)=RND<15 


)-13IFD í N10)=D(N s1)ORDí N, Q)=NORD(N 
,I)=NTHENI40 ELSENEXTN 
150 DRTR FU JR,LUTE,PEGUE,SAIA,AJUD 
R $ FALE, RB RR,ENTRE,LISTE,TOQUE,DESC 
RNSE,DESISTA,,, 

160 DRTR R ESPADA," ESCUDO 11 »* 1 LIVR 

□ íf çR CAPA, " DIAMANTE M “ ANEL'V ES 
PELHO " , " PERGRmINHÜ" , R MOEDA DE OU 
R0,R LANTERNA ? R FLRUTR , 11 ELMO", A G 
RRRAFfi DE VINHO * 11 CETRO DE PRATA" , 
A CHRVE,R RRCA,P ESTATUA,R PRS5AGE 
M, 11 RLTAR DE AKERNAAK",fi ESFERA DO 
S ELFGS 

170 DRTR M DUENDE'*, 11 OGRO 11 ," TIGRE 
%" ELFO" , " PITON" f " MRBCT," GUERR 
EIRO AKERNAAK", ** FEITICEIRO DO FOG 

□ % n MESTRE-FEITICEIRO* 4 , ** ASTERIÜN 
pí ^ n DRRGRO 11 

180 DRTR R ENTRRDR DR CA5A,Q HRLL, 

□ CORREDOR,R ESCRDR.O QURRTD 

190 DRTR A GRRRGEM,R SALfi,0 SALAG 
DE JOGOS,R BIBLIOTECA,R PORTA DOS 
FUNDOS 

200 DATA A DESPENSA,A C02INHA,Ü BA 
NHEIRD,0 GRAMRDO,G MURO 
210 DRTR R ARCR,R PASSAGEM SECRETA 
,0 CASTELO VERMELHO,0 DIAMANTE T 0 C 
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AMPO ZERO 

220 DATA 3,6,7,1,6,2,6,3,3,2,3 
230 FRIWTSTRINGSC60,"-") 

240 PRINTTAB(ZO)S"R CASA DE RKERNA 
RK" 

250 PRINTSTRING$(6ü, " = " ) 

260 PPINT"VOCE VOLTOU PARA CASA AP 
□S UM DIA DE TRABALHO, 

AO CHEGAR NA ENTRADA DA CASA,POREM 
,VDCE SENTIU QUE TUDO SE 
TORCIA J R SUA VOLTA * 

ERA UMA BARREIRA AKERNAAK - . - 11 
270 PRINT"05 ADORADORES DE AKERNAA 
K TOMARAM POSSE DE SUR CRSR 
E 0 ISOLARAM DO UNIVERSO -" 

2S0 FRIMT" QUANDO VOCE NPO SOUBER 0 
QUE FAZER, INTRODUZA ' AJUDA ' " 

290 P=0 

300 PRINTVE$ 5 1, N m 5 Lü$ (P í 
310 FE = 0:F0RN—0T03Ü:IFMR(N )<>FTHEN 
330 £LSEIFNGTFETHENPRINT"AQUI HÁ' 
-»-;FE=-i 

320 PRINT^UM" ;OBJ$CN> ? 

330 NEXTN:IFFETHENPRINTCHR$CS) 

340 IFD (P, 0) =-10RD (P , .1) =-1THEN36Ü 
350 PRINT"VOCE PODE SE MOVER PARA 
";L0$ÍD{F,0>>;" OU PARA "JLÜMDÍP, 
1 > ) 

360 IFCF<-3THENPRINTVE$;;IFCF<-6TH 
ENPRINT M FERIDD M ELSEPRINT ft CANSRDO"E 
LSEIFCF >1THENPRINTVE$ ?"SUPER—RESI5 
TENTE" 

370 INPUT A* FDRN=0T014: IF1ÍID4 í LD$ ( 
N),3,LEN(A))“ATHEN440 ELSENEX TN 
380 FGRN=QTÜ14sIFVOC$ÍN)í>ATHENNEX 
TN s GÜT0400 

390 ON M+l GQT01060 ,940 ,790 ,1 

400 ,550 ,610 ,1230 ,1430 ,370 

,1010 ,1140 ,2230 

400 PRINT "NPO ENTENDI ISTO“ 5G0TG37 
0 

410 ' 

420 * ======MOVIMENTACAO=== : ==“ 

430 ' 

440 IFFB >0THEN430 

450 IFD C P,0)=NORD C P,1)-NTHENP=NELS 
E490 

460 IFFS > OTHENMA(FS)=P " FS”0 
470 G0T01560 

430 N=FBíPRINT"0" í OBJ$ C N) i " PULA S 
OBRE VQCEÍ":GÜSUB1S50 :0ÜTD156O 
490 ' 

500 PRINT"NAO HA * PASSAGEM PARA «\ 
LD$(N) 

510 G0T01560 
520 ' 

530 '==—-“AJUDR 
540 ' 


550 PRINT"0 SEU OBJETIVO E' LIBERT 
AR SUA CASA DOS AKERNflflKEN- 
PARA SE MOVER USE 0 NOME DO LOCAL 
PARA ONDE QUISER IR-EX! 

'GARAGEM'-“ 

560 PRINT"SEU VOCABULÁRIO E':";:FO 
RN=0T0I4 s PRINTVOCÍ (N) J/% “ S ! NEXTN = P 
RINT 

570 G0T01560 
530 ' 

590 / ======FALE 

600 ' 

610 INPUT"0 QUE" ;A:FRINT"~";A? " ! ! " 
s IFq= « AKON tr THEN660 

620 IFVALCA)< > OTHENIFVALCA)=RNTHEN 
RN-Q! PRINTVE$ H **SUPER RESISTENTE PO 
R ALGUM TEMPO"íCF=CF+RND(4)+5sGOTO 
1560 ELSEPR I NT " NAO DIGR QUALQUER N 
UMERO NUMA CASA DE AKERMRAK!":CF=C 
F-SiGOTO1560 

630 IFn=FM*ANDMA C 30)=PTH£N2200 
640 PRINT"NADA ACONTECE■- -" 

650 GOTO1560 

660 IFRND(4)>FATHENFA-FA+1:G0T0750 
670 FR-FA+iiIFRND(3)=2THEN720 
680 PRINT" 

A BARREIRA SOFREU UMA SflTURflCÁO-- - 

O UNIVERSO PODERIA TER SIDO DESTRU 
IDO COM ESSE USO 

INDISCRIMINADO DE PALAVRAS MAGICAS 
.FELIZMENTE SO' VOCE .SOFREU" 

690 PRINT "A CONSEQUÊNCIA DE SUA IM 
PRUDÊNCIAS 

SURGE UM DOS SETE ASTERTONS..." 

700 MA(29)=P2 BLXC 9)~S 
710 GOTO1560 
720 PRINT" 

R PALAVRA 'AKON * ORIGINOU-SE NA PR 
IMEIRA BATALHA ENTRE AKERNARK 
E AS FORCAS DO BEM CHEFIADAS POR A 
ORIEL.AO PERCEBER QUE A 
BATALHA NAO TERMINARIA,MORIEL PRÜN 
UNCIOU-A CINCO VEZES,□ CAOS 
GERADO DEU ORIGEM AO UNIVERSO." 

730 PRINT"DECIDIRAM ENTÃO QUE ESTA 
PALAVRA SO y SERIR DITA NOVAMENTE 
NO FIM DOS TEMPOS-.*" 

740 PRINT"VOCE DESTRUIU 0 UNIVERSO 
p,„■■:G0T02270 

750 D<P,0J=RNDC15)-15D(P,1)"RND(15 
)-1 = IFD C P,0)=D(P,1)ÜRD< P, 0)=PGRDíP 
,1)=PTHEN750 ELSEPRINT"VOCE CONSE 
BUIU TORCER A BARREIRA NESTE PONTO 
":GÜT01560 
760 ' 

770 '======p£GUE 

730 ' 
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790 INPUT"Ü QUE";fiiFQRN=0TÜ30sGOSU 
B2220 :IFEXTHENS20 ELSENEXTN 
SOO 60T0950 
310 GOTGISèO 

S 20 IFN >14THENIFN)Í9THENPRINTVE$ ?" 
DOIDO OU VQCE NAO SABE 0 QUE E J UH 
11 5 0 BJSCN) ; "?":G0T01560 ELSEPRINT"V 
OCE NAO PODE CARREGAR UM‘^OBJS(N)= 
GOTO1360 

330 FP CN)=-1:MA C N)=-l:G0T0S7O 
840 ' 

330 /s ==”””LISTE 
360 ' 

370 FE-0 sFQRN=0TG14;IFNOTFPC N)THEN 

390 ELSEIFNOTFE THENPRINTVE*; "LEV 

ANDO*"?:FE=-i 

330 PRINT"UM";QBJ$ÊN >;","3 

S90 NEXTNsIFFETHENPRINTCHR*< 8 J ELSE 

PRINT "VOCE NAO CARREGA NADA" 

900 GOTO1560 
910 ' 

920 *======LUTE 

930 ' 

940 INPUT"COM QUEM";A:FGRN=0T030:G 
0SUB222G IIFEXTHEN960 ELSENEXTN 
950 PRINT"NAO HA * " 5 R 5 " AQUI": GOTO 
1560 

960 IFN<20THENPRINT 11 VOCE QUER LUTA 
R CONTRA UM“5GBJ*ÍN>;"???"SG0T0156 
0 

970 CB =2 s GOSUB1S50 sGOTO1560 
930 ' 

990 '===-—TOQUE 

1000 ' 

1010 IFNOTFP( 10 )THENPRINT" VOCE NAO 
LEVA NENHWM INSTRUMENTO 11 ELSEPRINT 
"VQCE COMECA A TOCAR A FLRUTR" * FT= 
-1 

1020 G0T01560 
1030 ' 

L040 / =====FUJA 
1050 ' 

1060 INPUT I1 PRRA ONDE 1 ' ; A; FGRN=0T019 
2 IFMID$<LÜ*ÍN),3iLEN<R))<)ATHENNEX 
TN - PRINT"0 QUE E * ISSO?" ; GOT01060 E 
LSEIFN >14THEN1490 
1070 IFFB=OTHEN450 
1080 IFRND(5)=3THENCB=-2 l N=FB:PRIN 
I"VOCE TROPEÇA E D";OBJ*(N) 5 " 0 AT 
ACA PELAS COSTAS":GQSUB1350 íGDTOÍ 
590 

1090 IFRND(3)<3THENPRINT M D";OBJ$íF 
B >;" 0 SEGUE ":FS=FB: FB=0 :G0T045O 
1100 FB=0 ' GGTD450 
1110 ' 

1120 '==-==DESCANSE 
1130 ' 

1140 FE=0 SPRINT"VOCE 11 ; i IFFP(0)THE 


NFP(0)=0 -MAí 0)-P:FE--i 

1150 IFFP(1>THENFFCD =0íMRí1)=P:FE 

=-l 

1160 IFFP C11)THENFP(11)-0 s MA <i1)=P 
íFE=-l 

1170 IFFETHENPRINT 11 LARGOU SUAS AR 
MAS E " J 

1130 PRINT"ESTA * DESCANSANDO 11 sCF=C 
F+2;IFCF >OTHENCF—0 
1190 G0T01560 
1200 ' 

1210 '=====ABRA 
1220 ' 

1230 INPUT"0 QUE" ? A;FQRN=0TG3Q•GOS 
UB2220 íIFNGTEXTHENNEXTNs G0T0950 
ELSEIFN<>15THEN1250 ELSEIFFPÍ14>TH 
ENPR INT "VOCE ABRIU A ARCA 11 5 5 FA7.=-1 
:IFRND(3)-2THENPR XNT" E FOI SUGADO 
POR ELA * SUA CHAVE ESTA' FORR * 11 s FA 
%=0:P=15Í FP(14)=0:MA f14)=RND(15 >-l 
ELSEPRINTELSE1300 #h 
1240 FB—0s G0T01560 

í250 IFN=2THENIFNGTFP(2)THENPRINT" 
0 LIVRO";ÍGDT01290 ELSE1310 
1260 IFN=12THENIFN0TFP(12)THENPRIN 
T"H GARRAFA" ; 2 G0T01290 ELSEFG--1aP 
RINT"A GARRAFA ESTA / ABERTA"íGÜTOl 
560 

1270 IFN-7THENIFNGTFP(7)THENPRINT" 
0 PERGAMINHO"!IG0T0I290 ELSEG0SUB2 
230 :PM*=A:G0SUB22S0 :PM$=PM$+AíPR 
INT"VQCE LE: 

-A PALAVRA SECRETA E' PM*;PRINT" 
ELE DESAPARECE - - - tl : FP C 7) -0 s G0T0156 
0 

1280 PRINT"VOCE NAO PODE ABRIR UM" 
;OBJ*<N> sGOT01560 

1290 PRINT" NAO ESTA' COM VOCE" :GO 
T01560 

1300 PRINT"A ARCA ESTA' TRANCADA"; 
GOTO1560 

1310 FP(2)=0sMA<2)-RNDC20J-1:PRINT 

"ANTES QUE D LIVRO DESAPAREÇA DE S 

ÜAS MA0S t V0CE LE:";ONRND < 5)G0T0132 

0 ', 4700 f4750,4800,4350 

1320 RN=RNDílOO) 5 PRINT 11 -0 NUMERO M 

AGICO E':"í RN s G0TQ1560 

1330 PRINT"-*--PORQUE OS MAGOS DET 

ESTAM VINHO * 11 s G0T0156O 

1340 D(15,0)-RNDM5)-1;PRINT"-HA' 

UMA PASSAGEM DA ARCA PARA "jLO$<D( 

15,0))!GOTOJ560 

1350 PRINT”—'PKON * E' A PALAVRA DA 
S DIREÇÕES"ÍG0TD1560 
1360 PRINT"-...0 PERGAMINHO QUE ES 
TO' DENTRO DO DIAMANTE TEM 0 SEGRE 
DO"s 80T01560 
1370 ' 
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1380 * —————SflIP 
1390 ' 

1400 XFPC U5THEN1420 ELSEIFRND< 3) = 
2THENMA (15) =19 • PRINT "ERA UMfl E CIBOS 
CADA *--"ELSEIFRND (5) í 3THEMMA C15)=R 
ND <15)~1s PRINT"A ARCA SE MOVEU" 
1410 FB=0!P=MRÍI5)=GÜT015é0 
1420 IFP=iSTHENP=MR(4 > : FB=0 :GGT015 
60 

1430 ' 

1440 PRINT"0 QUE VOCE QUER DIZER C 
OM 'SAIR'?" íGOTOlSóO 
1450 ' 

1460 1 -==-=ENTRE 
1470 ' 

1400 INPUT"ONDE" ; R 2 FÜRN~ÔT0I9 * IFRÍ 
>MIDtMLG$ ÍN) s3,LENCR))THENNEXTN - GO 
TQ950 

1490 XFM<15THEN440 ELSEIFN=15TH£N 
IFFAV,THENFB=0 : P=N: G0T01560 ELSE130 
0 

1500 IFN=1STHENFP< 4 >=0 sMA{4)=P:FB= 
0:P-N:GOTO1560 

1510 IFN“16THENFB=G:P=N;GQTQI560 
1520 PRINT"VOCE NRO PODE ENTRRR N" 
iLD&(N)SG0T01560 
1530 ' 

1540 9 ======RCONTECIMENTOS POSSIVE 

XB====== 

1550 ' 

1560 FGRN-20T030:IFMA(N)(>FTHEN15S 
O ELSEIFRND CIO) ) BL7. (N-20 ) THEN15S0 
1570 PRINrO" |OBJ$ÍN) ; 11 □ RTRCfl ! " = 
CB”0 * GÜSUB1S50 
15S0 NEXTN 

1590 FQRN=2QTG3ÜíIFFB)OORRND(6)< 4G 
RMR(NM0THEN1620 ELSEK^MA CN)SMR(N) 
-DCMR(N),RNDC2)-1):IFMRCN)=-lTHENM 
R(N) —K í GOTO1620 

1600 IFP—KTHENFRINT 11 0 " ; GB í N); M V 
RI PRRR ";LÜ$(MAÍN)) 

1610 IFMR CN)“PTHENPRI NT "UM"$OBJ$(N 
>;“ APARECEíVINDO ü"iLÜ*<K) 

1620 NEXTN 

1630 IFT>30RNDMAC 24)=-lTHENIFRNDí1 
0)-7THENPRINTVO$?"UM GRITO ESTRRNH 
0..-"f MA C 24)=RND í15)—1 
1640 IFTMCÍTHENIFMRC10)=PANDTM=OTH 
ENTM-RND < 30) +20 = PRINTVG*; 11 : 

‘-NRO DEVERIA TER ENTRADO RQÜI f MQRT 
AL K ELSEELS£TM=TM-I:IFTM=0THENTM=-i 
*PRINTVOÍ5 "2 

-DEMOREI R CHEGRR ?MORTAL *MAS RSORR 
VOCE PAGARA' POR TER INVRDIDOO SR 
NTURRIO DE AKERNRAK" : MR (25 ) =P = BL7* C 
5) =7 

1650 IFTE >0TNENTE-TE’-1: IFTE-OTHENM 
A(0)=RND(20>-1 


1660 IFPT>100ANDMRC 26)--1THENIFRND 

(10)=1THENPRINTV0$;"s 

-VOCE JR * CAUSOU MUITOS PROBLEMAS, 

VERME* 

SURGE UM GUERREIRO-"íMRC26)-PsGOTO 
I5Ó0 

1670 IFP=MA(19)THENIFRNDC 3 > ^ÍTHENP 
RINT"A ESF-ERR EXPLODE■ " sS=-RND<7) : 
GGSUB2110 :MR(19)--1ELSEIFRNDC 4) =3 
THENPRINT ,r fi ESFERA BRILHA FORTEMEN 
TE* - -":P=19 

1600 IFP=MA(16)ANDNOTFPC13)THENIFE 
ND 17)=5THENPRINTVÜ$5“: 

-EU,A ESTATUA,SrMBOLO DE ANIK,DOU- 
LHE UM PRESENTE.* -" =MAC 13)=P 
1690 IFMR(26)=PANDFP C13)ANDBL7(6)> 
OTHENPRINTVO*;"= 

“EU,□ GUERREIRO DE ANIK,SAUDO □ Pü 
RTADÜR DO CETRO 11 s BL% (6) =0 
1700 IFNOTFGORPC>MA(25)THEN1720 EL 
SEPRINTVOi": 

- FRAAAAGH ! NyOK i 
0 CHEIRO DO VINHO ";;IFRNDC4>=3THE 
NPRINT"ENFURECE 0 MAGO - " s BL7C (5) =9£ 
LSEPRINT"ENFRAQUECE 0 MAGO• " ; CF"/. (5 
)=CF%(5)-4 

1710 PRINT"ELE QUEBRA SU";OBJ*í12) 
5 FP<12)=0s FG=0 

1720 IFT >60ANDMA(17)=-1THENIFRND< 5 
) = 1THENMA(17 í =RND(15 )-í 
1730 IFPT >200ANDMA C 2S) =1STHENIFRND 
í 8)=3THENPRINTV0$;": 

“ATE' AGORA VOCE ENFRENTOU OS APRE 
NDIZES,MEU CARO * - *"= BL%<0 >“7 s MR(2S 
)=F 

1740 IFFPC 6)RNDMR(28)=FTHENPRINT"S 
EU ESPELHO DRENA UM POUCO DA MASIA 
DO MESTRE" :CF7-CS) =CFXCS)-2 
1750 IFP=14THENIFRND(10)“STHENPRIN 
T"DO ALTO DO MURO SURGE UMA LUZ Cl 
NZR- - -“s P=15 s FB-0 

1760 IFMAC17)< >-1THENIFRNDí10)=6TH 
ENPRINTVG$ f": 

-"SDBJÍCl?)ESTA N";LOÍ(MAC 17)3 
1770 IFRN=0ANDP=7THENIFRND(20 > =2TH 
ENRN=RND1100 )ePRINT"VDCE LE NUMA C 
ARTA DE BARALHOsQ NO- MAGICO E'";R 
N 

17S0 IFCF<OTHENCF=CF+i5IFFPC11)THE 
NIFCF<-1THENPRINT"V0CE SE RECUPERA 
MAIS DEPRESSA,GRAÇAS A SEU ELMO M 
AGI 00":CF=CF+2 
1790 FT=0 

1800 T=T+1sIFT/10=INT C T/10)THENPRI 
NT"TEMPO ="ST?"MINUTOS" 

1010 G0TQ300 
1020 7 

1030 =====SUB DE LÜTR 
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1340 

1350 IFN=0THEN2ü90 ELSEFB-NíIFFTTH 
ENPRINTVES;"T^C-^DO 0 FLRUTA": GOT 
01SS0 ELSEPPZK* VOCE 0 ATACA COM " 
S s IFFP< 0 3 ' r +EN^RINT ,, SUA ESPADA" 5 s CE 
=CB+2EL5E==INT SOCOS E PONTAPÉS"5 
136C IFFPÍ1>THENCB=CB+1SPRINT" E S 
E DEFEM/E ICM SEÜ ESCUDO"ELSEPRINT 
IS" 7 : IFF” 3)ANDN>26THENPPrNT"3UA C 
APR : PROTEGE DOS GOLPES MÁGICOS M 
RIS 

FORTES DO" l OBJ$(N)sCE=CE+(N-26)*2 
ISSO 0NN-19GGTG1S90 ,1920 ,1930 ,1 
950 ,1990 ,2010 ,2030 ,2040 ,2000 
,2070 ,2030 

1390 IFRND C 4) -3THENPRINT [, ELE SE RS 

SUSTO COM SUR FURIR E 

DESAPARECE EM MEIG A UMA FUMAÇA VE 

FDE*":FB=0ELSE1910 

1900 K—RND(15)—1sIFK<>MRÍ20)THENMA 

< 20)=K:RETURNELSE1900 

1910 G0TD2090 - 

1920 GQT02090 

1930 IFFTTHENPRINT "ELE FICR ENFEIT 
ICRDO COM - EXÓTICA MUSICR QÜE SRI 
DE 

Süfl FLAUTA NIDDUN E SE fíCRLMR*"í FB 

=0=RETURN 
1940 G0T02090 

1950 IFRND< 4 > =2THENPRINT M ELE GESTI 
CULR E TUDO ESCURECE MOMENTRNERMEN 
TE" :IFFP < 9)THENCB=CB-2:PRINT"MESMO 
COM SUR LRNTERNA E' DIFÍCIL ENXER 
GRR ,I ELSECB=CB—5ELSE1970 
1960 GOTO2090 
1970 ' 

1930 G0T02090 

1990 IFRND < 3 ) =1THENPRINT M 0 PITON 0 
ENCRRR,TENTANDO ROUBRR SUR EMERGI 
R":CF=CF-RNDÍ3):RETURN 
2000 G0T02090 

2010 IFRND (5) =3THENPRXNT II ELE FR 2 U 
M GESTO ESTRANHO -" = IFFP(0)THENPRIN 
T"SUfl ESPADA DERRETE - - «":FP í 0)=0 3 T 
£=RND(5)+10;RETURNELSEPRINT«VOCE S 
ENTE TONTURAS-- *":CB-CB“2 
2020 G0T0209O 
2030 G0T02090 

2040 IFRND(4)=4THEND(P*0)=-l = D(P,1 
í =-1:MR(27)=RNDí15)-1:PRINTVOS í"A 
SARGRLHADR DO 1 ' ; OBJ$ < N) í Jí = 

"-ORTRL,VOCE ME SOLTOU,MAS CONTRUI 
ü SUR PRISÃO-- - 

£*_£ VAI PARA ":LD^CMHÍ27) ) :FB=0:PE 
TURN 

2050 G0T02090 
2:=; GOT02090 
z: _ : SCT02090 


2080 G0T02090 

2090 S-CF-CF7Í CN-20) +CB“T/5Q~ ÍN-20 ) 
*2+RND í 5) 

2100 IFSÍ-7THENPRINT rr INFELIZMENTE, 
MEU CAROrVOCE MORRE-- -"=G0T02270 
2110 IFS < —4THENPRIMT"VOCE FOI RTIN 
BIDO SEPIRMENTE" =CF-CF-4 = G0T02210 
2120 IFS<1THENPRINT"VOCE FOI ATING 
IDO"í CF=CF-2 sGOTO2210 
2130 F8=0 

2140 IFS < 4THENPRINT"VOCE 0 ATINGIU 
" : CFX < N-20) =CF7. (N-20 >-1: GQT02210 
2150 IFS< 7THENPRINT"VOCE 0 RTINGIU 
GRAVEMENTE" : CF7- (N-20) -CF7. C N-20 > -3 
s G0T02210 

2160 PRINT“VOCE □ MRTOU":MRCN) =-2 : 
FT“CN-19)*20+PT 

2170 IFN=23THENIFRND í 3 > =1THENPRINT 
"UMA LUZ ESTRANHA SURGE-□ ELFO EST 
R' RESSUCITADO- 

E FURIOSO ! ! ! " s GF*A C3 >=Ss MA (N) =PELS 
EPRINT"NO LUGAR DO CORPO DO ELFO A 
PARECE UMR ESFERA ri 2MA (19 ) =F 
2130 IFN“2SÜRN~29THENPRINT" 

VOCE CAI INCONSCIENTE*- * 

RO ACORDAR VOCE PERCEBE QUE NAQ ES 
TA' MAIS N M 5LG*(F)5"- 

-QUEM OUSA DESAFIAR YDYAK,0 DRRGRO 
,ATACANDO SEUS SERVOS?":P=17=MA(30 
) =17 

2190 IFN<>30THEN2210 

2200 PRINT^G DRRGRO SOME NUM VCRTI 

CE- - - 

SUA CRSR ESTA' LIVRE DA BARREIRA - 
VOCE VENCEU!":G0T02270 
2210 RETURN 

2220 EX = ÍMIDS ( ÜBJ$(N),2 f LEN(A)Í^AO 
RMIDS(ÜBJ$ C N >,3,LEN(A))=A) AND (MR < N 
)“PDRFP í N)>: RETURN 

2230 INPUT ir VGCE QUER DESISTIR DO J 
OGO";fi:IFA=“SIM"THEN2270 ELSE1560 
2240 ' 

2250 — = —FIM DE JOGO 
2260 ' 

2270 PT=PT-FP(4)*100-FP(5)*30-FP(S 
)*15—FP(13)*50:PRINT" 

□ JOGO TERMINOU-VOCE FEZ" 5 PT;"PONT 
OS - " 3lNPUT tl VDCE QUER RECOMECRR" | R 3 
IFR“"SIM"THENRUNELSEEND 
2230 A=CHR^ C RND(3)+65)+CHR* C 61 + RND 
{3)*4)+CHR$(73+RND(5))+CHRS C 61 + RND 
(3)*4) +CHR$ C75+RND(3))= RETURN 
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SOFTWARE 


Controle Bancário 

CP 400 COLOR — 16 ou 64 Kb RAM 


Muitas pessoas consideram a confe¬ 
rencia dos movimentos bancários uma 
tarefa irritante e sempre propensa a er¬ 
ros, Algumas desistem na primeira vez 
que tentam verificar as informações 
comidas em seus extratos. No entanto, 
é bom lembrar que muitas vezes o ban¬ 
co comete erros de leitura dc quanlias 
especificadas em cheques (principal- 
meme sc sua caligrafia nao estiver legí¬ 
vel) ou você mesmo transcreve quantias 
incorretas para seu talão. 

Mas, fdizmcntc, vocc possuí um CP 


400, com capacidade de memória e ar¬ 
mazenamento de dados, elicicnda c agi¬ 
lidade dei n formações — capaz de orien¬ 
tá-lo em todas as etapas do balanço de 
seu talão de cheques e qualquer outro 
movimento bancário. Digite correta- 
mente este programa sobre Controle 
Haneárin e esqueça todos os problemas 
dos cheques, extratos etc. 

Principais rotinas 

8(1 - 220; inicializam variáveis e apresen¬ 
tam as primeiras instruções. 


130 - 250: último número de cheque. 
280 - 320: balanço do talão após 0 últi¬ 
mo número de cheque. 

330.440: depósitos pendentes. 

450 - 590: cheques pendentes. 

600 - 710: taxas de serviços e avisos de 
débito. 

720: depósitos recentes c avisos de 
credito. 

730 - 870: cálculo do movimento ban¬ 
cário q finalização do programa. 

880 - 1000: SUB-ROTINA (depósitos 
recentes). 


10 '■ X X X X x x * * x >: x- x- X X- X: y * x * x * * x x x- x- x 

28 y * CONTROLE BfiftCflRIO * 

30 ^ CP-CÜMPUT- PESSOAIS * 

MS '* CP-400 * 

50 * # ... j 11 li ii M ELI 0 u lt . . . 

6 P) ' x x *■ x- * íí -x- x x x x- X’ x x x x- se *■ -x- x x- x x x x*-x X 
70 REMí CONTROLE BANCAR IÜ 
80 OLEAR SSeCLS 

90 PRINT' ** CONTROLE BANCARI 

0 k* 11 SPRINT 

f.00 M C = 10 

U0 DIM C(MC) 

t.Z® E$ = M EftRÜ ? RE-ENTER-" 

138 PR INI 11 PR I NE IRAMENTE >- COMPARE 
OS NUME- 11 

140 PftXNT*'ROS DE CHEQUES LANÇADO 
5 EM SEU" 

150 PRINT"£XTRF!T0» COM OS DE SEU 
TAL AO /" 

160 PRIMT"DE CHEQUES." 

1.70 PRINT"VER IFIQUE TAMBÉM, OS D 
EiPOSITOS" 

130 PRINT “QUE ESTRO EM SEU EXTRA 
T0 EfiN-/" 

190 F’RINT"CARIQ." 

Zm PRINT 

210 PRINT"DIGITE 0 VALOR TOTAL D 
E SEU 

220 PRINT "EXTRATO BANCARIGs";sIN 
PUT SB 

238 PRINT" AGORA» DIGITE 0 NUMERO 
D0 UL-/" 

240 PRINT"TIMO CHEQUE LANÇADO EM 
SEU EX-™" 

250 PRINT "TRATO BRNCRRIÜ ;"; 

2AB INPUT LC 

270 Lt="FALTfi DE ESPAÇO PARA DA D 
OS" 


280 PRINT 

290 PRINI"QUAL E 0 VALOR D0 SALD 
0 BANCA-" 

300 PRINT"RIO INDICADO EM SEU TA 
LRO DE/" 

319 PRINT "CHEQUES ATE 0 NUMEROi" 
f LC 

320 INPUT"DIGITE 0 VAI. OR s " ; CB ; PR 
INI 

333 PRINT"DIGITE I-i QUANTIA DOS D 
EPOSITOS" 

340 PRINT "ANTERIORES QUE CONSTAM 
EM SEU/" 

353 PRINT "TALA0 DE CHEQUES ATE 0 
NUMERO::" 

369 PRINT" X** "LC" **# "sPRIN 
T"POREM QUE NAO ESTEJA INCLUÍDA" 

379 PRINT"EM SEU EXTRATO BANCARI 
0 ." 

380 A$="PRESSIONE J T' PARA TERMI 
NAR"SPRINT fi* 

390 INPUT"DIGITE 0 VALOR s"? P,$ : IF 
R*="T" THEN 44B 
400 IF VAL(R$)>0 THEN 420 
410 PRINT ET»;GOTO 380 
420 ND=ND+1; TD==TD+VRL (R$) 

430 GOTO 390 

448 PRINT" TOTAL ? Tu .l' ,R IWT 

459 PRINT" DI6ITE A QUANTIA DOS C 
HEQUES"■ 

460 PRINfEMITIDÜS* QUE CONSTEM 
EM SEU" 

470 PRINT"TflLPO DE CHEQUES" 

M80 PRINT 11 PITE O NUMERB: *** "LC” 

■xxT* 

490 PRINT "MRfí QUE NRO FÜRfiN INCL 
UI DOS EM 11 

500 PRINT"SEU EXTRRT0„" 
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510 PRINT Aí 

520 INPUT“DIGITE ü VALOR:";Rí 

530 IF Rí-"T" THEN 590 

540 IF VAL( Rí > >0 THEN 560 

550 PRINT EísGPTG 510 

560 NONC+i:C(NC)=VAL<RÍ)sTC=TC+ 

C(ND> 

570 IF NCCMC THEN 520 
580 PRINT Lí 

598 F'RINT"TGTAL =" ;TCsPRINT 
680 PRINT"ENTRE COM RS QURNTIRS 
REFEREN--" 

618 PRINT"TES AOS SERVIÇOS PREST 
RD OS E /" 

628 PRINT"CONTflS PRGRS PELO ERNC 
Ü, QUE /" 

638 PRINT"FORAM DEBITADAS EM SUA 
CONTA," 

640 PRINT Aí 

650 INPUT"DIGITE G VALOR!";Rí 
660 IF RÍ="T" THEN 710 
670 IF VAL(Rí)>0 THEN 690 
688 PRINT Eí:GOTO 640 
690 NS=NS+i:TS=TS+VAL(Rí) 

70G GOTO 650 

710 PRINT"TOTAL ="; TS SPRINT 
720 GOSUB 880 

730 W=SB+TD+TS-C&~TC-TR:W-ABS(W) 
740 IF W>„001 THEN 770 
750 W=0:PRINT“O BALANÇO DOS CHEQ 
UES CONFERE!" 

760 GOTO 790 

770 PRINT" 8SÍÍATENCR0» SEU BfiLAN 


CO NAQtUHU 1 

780 PRINT" CONFERE 4 

mmmw# u 

790 PRINT;PRINT"SALDO DO EXTRATO 
BRNCRRIO +" 

800 PRINT"DEPOSITOS NAO REGISTRA 
DOS + n 

810 PRINT "TAXAS DE SERVIÇO =‘‘;SB 
+TD+TS 

820 PRINT:PRINT"SALOO DO TPLAO D 
E CHEQUES +" 

830 F’RINT"CHEQUES NAO REGISTRADO 
S +" 

840 PRINT"DEPÓSITOS RECENTES"";C 
B+TC+TR 

850 PRINTsPRINT"DIFERENÇA =";L! 
860 PRINT 
370 END 

880 PRINT"DIGITE H QUANTIA DE SE 
US DE PO- " 

890 PRINT"SITOS REALIZADOS AROS 
O CHEQUE" 

980 PRINT "NUMERO **K"LC"***" 

910 PRINT"QUE CONSTAM EM SEU EXT 
RATO," 

920 PRINT A* 

930 INPUT"DIGITE O VALOR:";Rí 
940 IF RÍ="T" THEN 990 
950 IF VALIRí)>0 THEN 970 
960 PRINT Eí:GOTO 920 
970 NR=NR+1:TR=TR+VAL(Rí) 

980 GOTO 930 

990 PRINT"TOTAL = " ;TR:PRINT 
1000 RETURN 


JOGO 

Aterrissagem Lunar 



CP 200 16 K RAM 


Neste programa você será o astronauta que terá por mis¬ 
são descer rta Lua, Todo o cuidado é pouco, na medida 
em que a aterrissagem terá que ser perfeita. Preocupe-se 
sempre com o seu combustível, pois se o mesmo terminar 
antes da aterrissagem sua nave cairá e se chocará contra 
as rochas lunáticas. 

Mantenha sempre atual as informações sobre sua alti- 
tute (em metros), velocidade (km/h), combustível (litros) 
e a situação de sua nave, isto é, se ela está descendo ou 
subindo. 

Cuidado nas deslocações, procurando sempre associar 
sua velocidade ao combustível e à altitude, para não $cr 
surpreendido. Todos os comandos necessários são dados 
pelo seu computador pessoal. 

Se a sua aterrissagem for perfeita, telefone para a NASA, 
Você poderá ser o primeiro brasileiro a comprovar que a 
Terra é azul! 


IO ' **************************** 
20 '* RTERRIBÁ6EM LUNRR * 

30 '* CGMF- PE53GPIS * 

40 '* CF”200 * 

50 '**************************** 
60 LET K=0 

70 LET P=-200-fINT (RND*Ò0)3 
80 LET 8=1200+(INI ÍRND*380)> 

90 LET C=320+(INT <RND*90>> 

100 CLS 

110 PRINT " ALT -= ";INT <B); H HTS *" 

,"COHB-= " 5 INT (C); u LIS ■ 11 

120 PRINT RT 0,15; "W ?RT 1,15;"»'; 
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Continua no próximo número. 
G£RAÇÀO PROLÓGICA 






CURSOS 


CURSO DE BASIC 


LIÇÃO IX 



sta é a última lição do nosso curso de BASIC. No 
entanto, as possibilidade s dessa ling uagem não estão 
esgotadas. Há muito que aprender e esperamos que _ 

estas nove lições publicadas na revista Geração 
Prológica se transformem em ferramentas para um 
aprendizado mais formal e numa introdução para as 
várias utilizações com seu computador pessoa l. Neste 
número, conheça a instrução RESTORE. __ 

Marílena Occhini Siviero 


A instrução KKCS rORK permite que 
um tnesmo conjunto dc dados definidos 
numa instrução 1>ATA seja asado mais 
de uma vez* No programa a seguir você 
poderá notar esta utilização c o uso do 
valor - 1 na instrução DATA para mar¬ 
ear o finai do íoop. Este recurso é bas¬ 
tante utilizado em programas que usam 
a instrução READ» 


10 PRINT^PROGRÂMADASÜMA 
E DO PRODUTO DE UM 
CONJUNTO DE DADOS'’ 

20 READ A 
25 LET P - 1 

30IFA ^ - 1 TH EM GOTOSO 
40 LET S = S + A 
45 GO TO 20 
50 RESTORÉ 
60 READ B 

80 IF B = -1THEN STQP 
90 LET P* B 
100 GO TO 60 
105 PRINT P 

110 DATA 3.57.34,46,3,23,45.8, - 1 


Ao ser rodado o programa, o com¬ 
putador lc o primeiro dado, realiza as 
operações que o envolvem , lê o segun¬ 
do e, assim por diante, até o último va¬ 
lor. A instrução RE5TORK indica ao 
computador que dc deve retornar ao 
começo. Tudq se passa como se existis¬ 
se um contador para o número de vezes 
que a instrução READ foi usada, avan¬ 


çando a cada valor lido. Na verdade, a 
insí rução RESTORE funciona como o 
reseí desic contador* permitindo sem¬ 
pre uma nova contagem. 

MATRIZES 

Em lições anteriores já trabalhamos 
com variáveis. Estas variáveis tinham 
um nome indicado por uma letra ou por 
mna letra e um número (em alguns com¬ 
putadores, o nome dc uma variável po¬ 
de ser qualquer conjunto de caracteres 
alfanuméricos, desde que o primeiro 
demento do nomeda variável seja uma 
leira). Com estas variáveis podemos rea¬ 
lizar vários programas, como o exem¬ 
plo a seguir: 


5 REM ESTE PROGRAMA SOMA 
TRES NUMEROS 
10 INPUT A, B, G 
20 LET D - A + B + C 
30 PRINT D 


Agora, supon ha que você deseje so¬ 
mai não três, mas trezentos números. 
Certamente você teria dificuldades cm 
inv entar trezentos nomes de variáveis c 
teria um trabalho enorme em escrever 
um programa que fizesse isso. Feliz- 
mente dispomos de um recurso, Pode¬ 
mos escrever este programa usando va¬ 
riáveis indexadas: A(4) uma letra segui¬ 
da por um número entre parênteses. 


A leira indica não mais uma única 
variável, mas uma área reservada da 
memória que é definida anicriornrtcnte 
pela instrução DIM. O número entre 
parênteses é um índice e serve para di¬ 
ferenciaras posições da ãreade memó¬ 
ria reservada. Assim, A(3) é diferente 
de A(5>. A instrução DIM (abreviatura 
dc DIMENSION) delimita o espaço dc 
memória que as variáveis podem ocu¬ 
par. Por exemplo, no nosso programa 
desejamos somar 300 números; então, 
devemos indicar ao computador para 
reservar na memória 30Ú elementos. 


5 REM ESTE PROGRAMA SOMA 
300 NUMEROS 

6 DIM A(300) 

10 FOR I = 1 TO 300 
20 INPUT A(l) 

30 LET N - N+A(l) 

40 NEXTI 
50 PRINT N 


O indice pode ser uma constante, 
uma variável ou uma expressão, tanto 
na variável indexada como na instrução 
DIM, desde que sejam inteiras. A áreà 
reservada peia memória c chamada de 
matriz, No exemplo que demos, a ma¬ 
triz tem uma única dimensão, porque 
lemos um único índice, porém, pode¬ 
mos ter até cinco índices {dependendo 
do computador), o que dá uma maior 
flexibilidade aos programas - . 
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TECNOLOGIA 

NACIONAL »a 

COMUNICAÇÃO 
VIA SATÉLITE 


O Laboratório de Microclctromca da Escola Politécni¬ 
ca já está transferindo tecnologia de sistemas de comunica¬ 
ção via satélite para a indústria nacional. Segundo o pro¬ 
fessor José Kléber da Cunha Pinto, coordenador da Divi¬ 
são de Circuitos Integrados Híbridos do Laboratório, o tra¬ 
balho baseia-se no desenvolvimento de dois tipos de ampli¬ 
ficadores, elementos fundamentais nos sistemas. 


O trabalho do Laboratório traz diversas vantagens para 
o Brasil: cria tecnologia nacional, treina recursos humanos 
e promove a integração indústria/universídade. Estas pes¬ 
quisas são financiadas pela Telebrás e os resultados são 
transferidos para a indústria nacional que, por sua vez, for¬ 
nece equipamentos â Embratel — responsável pelas comu¬ 
nicações via satélite no BrasiL 


Micro 


computador 


ouve estrelas 



...ora direis ouvir 
estrelas deixou de 
ser coisa de poeta e 
virou função de 
microcomputadores 
no Instituto 
Astronômico e 
Geofísico da USP, 
pois captar ondas 
sonoras emitidas por 
abjetos cósmicos é 
agora mais unia 
forma de se 
estudar galáxias, 
estrelas ou nuvens 
inrerestelares, 

E para agilizar 
este trabalho 
foi desenvolvido um 
sistema de 
computação e 
radiotdescópío. 



O Laboratório de Subsis¬ 
temas Integráveis da Escola 
Politécnica da USP desenvol¬ 
ve quatro projetos, com apoio 
da CNPq, Fínep e Banco 
Mundial, com o objetivo de 
repassar os resultados das 


Avanço eletrônico na 

USP 

pesquisas à indústria eletrô¬ 
nica nacional. 

Segundo o professor João 
ÀntonioZuffo, coordenador 
do laboratório, o primeiro 
projeto desenvolverá uma fa¬ 
mília de osciloscópios digi¬ 
tais, instrumentos que anali¬ 
sam sinais eletrônicos, O pro¬ 
jeto prevê uni período de dois 
anos até que os aparelhos es¬ 
tejam prontos para competir 
no mercado nacional e inter¬ 
nacional. 


POESIA INFORMATIZADA 


U ma obra que reúne poesias feitas na década de 70, 
e postexiormeote submetidas ao crivo de um soft¬ 
ware elaborado pelo próprio autor, é a principal 
característica do Livro Poesia Informatizada, de Luiz 
MuraL A obra de Murat é moderna e seu trabalho de cria¬ 
ção inclui o auxilio de um computador na composição de 
versos. Murat é membro da Academia Brasileira de Letras 
e possui PHD em informática. 
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ILUSTRAÇÃO EMILIO 


n O O 4 uer imcr 
U 1*00 do Brasil 



A Secretaria Especial de 
informática (SEI) confirmou 
que o governo soviético está 
interessado em adquirir no 
Brasil, ao longo dos próxi¬ 
mos anos, 70 000 microcom¬ 
putadores, O Itamaraty rece¬ 
beu o pedido soviético e o en¬ 
caminhou à SEI e à Associa¬ 
ção Brasileira de Computa' 


ção (Abicomp) — entidade 
que reúne a indústria brasilei¬ 
ra do setor. Para sc ter uma 
idéia da importância desse 
possível negócio, o número 
total de microcomputadores 
já fabricados no Brasil c ape¬ 
nas ligeiramente superior a 
100.000 equipamentos. 


r 


**3 CONCORDATA 


° e , n ?J? resáno 3 ue tem um microcomputador Sis- 
tema 60° ou 700 ou um CP 500 modelo MS0 po- 
de realizar ampla analise contábil de balanços e 
balancetes de sua pequena ou média empresa atra- 
ves do software Indicare. César Abkalafecriador 
o programa, afirma que o usuário, com este soft 
ware, passa a ter condições de prev^ dTfi^ldades 

a 0 nos t de m amec° e danc^ da,aS * MnpreSas C ° m dt)is 

Cudtiba mf0rmaÇÕeS Pei ° ,elefonc (041) 223-8510, 


con “CAD/CAM 


O Estaleiro Caneco, no Rio 
dc Janeiro, vai automatizar 
seus processos de construção 
naval, Foi aprovado pela Se¬ 
cretaria Especial de Informáti¬ 
ca (SEI) o projeto da empre¬ 
sa para absorção de tecnolo¬ 


gia e criação dc um sistema 
Integrado de computação ele¬ 
trônica^ conhecido como CA D 
/CAM, que permitirá que as 
atividades básicas dc concep¬ 
ção de navios sejam feitas 
com mais eficiência e rapidez. 


suprimentos na 


MOORE 


* ^°R^r ÍOr £mpresa de formulários contí¬ 
nuos do Brasil, entrou 110 mercado de informática 

. so,uçâü integral”: lojas especializadas 
e capacitadas a atender grandes e pequenos usuá- 
nos nas áreas de software, hardware, suprimentos 
acessortos e manutenção. Com cinco lojas (Porto 

j® r ?’ untlt,a ‘ Sao Panlo, Belo Horizonte e Sal¬ 
vador) c cinco entrepostos, a Moore prevê um fa¬ 
turamento total de 90 milhões dc dólares só este 
h° S -,T alS 15% Virâ0 da vcncla Je suprimem 
bro de 85 24 ° J8S ^ CS ' arã ° inslalaíias a <é dezem- 


Informática 
ajuda excepcionais 


Fazer com que a criança 
excepcional possa desenvol¬ 
ver seu próprio processo de 
comunicação, trabalhar sozi¬ 
nha e até se tornar indepen¬ 
dente das pessoas que cuidam 
dela éo principal objetivo do 
uso de computadores na es¬ 
cola paulista Quero Quero. 

Este projeto, desenvolvi¬ 
do há dois anos, permite que 
um menino de 15 anos que só 
conseguia piscar os olhos, 
possa hoje acender a luz, es- 
c re v er e ter t odos o s eon hed - 


mentos equivalentes a um 
aluno de terceiro ano primá¬ 
rio. Tudo isto só foi possível 
com o uso do computador. 

Para esta criança desen¬ 
volver todas estas atividades, 
Moysés Cohen Aronis e Car¬ 
los Alberto Pulino desenvol¬ 
veram um software específico 
e adaptaram diversos equipa¬ 
mentos periféricos num mi¬ 
crocomputador. Este apara¬ 
to permite a qualquer crian¬ 
ça com lesão cerebral aprem 
der a trabalhar. 



. ruíU ü ° * r ?s ] l ja íormou a primeira mm 
projetistas brasileiros especializados no sist 
LAD (desenho com auxílio do computador) , 

WrtTf el J hana ' Esses es P eciali stas, pioneiro 
America Latina nessa área, já projetaram cerc 

pei Ç* s para os veículos da linha Ford, ínclu 
ifcns de tecnologia avançada para equipar o < 
go t caminhão mundial da empresa. 


r -‘--- 

os computadores pQ- p 
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Parte II 


No número anterior, publicamos as dicas das aplicações 
especiais das rotinas que agilizam o BASIC. Agora, você 
terá a dica da dica: grave essas sub-rotinas em disquete, 
para posterior utilização, via comando MERGE. Assim, 
pode-se formar uma verdadeira biblioteca de rotinas U$R, 
que poderão ser usadas em programas BASIC, desde que, 
quando necessário, seja reservado espaço suficiente na me¬ 
mória. Como fazer isio? Simples! 

Usando o mesmo programa, a partir do DOS500 Ati¬ 
vo, digitamos CLEAR < ENTER > para (por precaução) 
limpar todas as variáveis; vamos ao BASIC, e digitamos 
um programinha bem curto e simples: 



Neste número, para os CPs 500 e 300, uma dica sono¬ 
ra: o teclado do computador pessoal passará a ser o tecla¬ 
do de um piano. Como está, a Listagem I é um programa 
completo, uma vez que a sub-rotina ficará na memória, 
sendo chamada por meio da função U5R, Muitas melho¬ 
ras poderão ser introduzidas, como por exemplo a detec¬ 
ção de uma tecla errada em determinada informação de 
dados. 


20 DATA 33 , 0 ,60, 17,1 , 60 ,1 , 

255,3,237,176,201 

30 FOR1 = 1TQ12:READD:PQKE&HFFF0 + l,D:NEXT 



Observe que usamos ape¬ 
nas as linhas 20 e 30 do pro¬ 
grama anterior; rode o pro¬ 
grama e em seguida retorne ao 
DQS5Q0 Ativo por meio do 
CMD“S" < ENTER >, e 
lance mão do utilitário 
DUMP. (Veja, se ainda não o 
conhece plenameme, no ma¬ 
nual.) Para colocar os 12 
bytes que ainda estão nas po¬ 
sições FFFO e seguintes da me¬ 
mória num arquivo de disco, 
o comando deve ser emprega¬ 
do da seguinte forma: 


DUMP ENTELA (START= FFFO^NDs FFFB) < ENTER> 


Digite D1R < ENTER > e você verá um novo arquivo 
no diretório, chamado ENTELA/CMD (talvez o primei¬ 
ro arquivo / CM D que você produziu sozinho!). Em 
BASIC, o programador poderá utilizar uma linha como: 


10 CMD“C + ,' I ÊNTELA/CIVíD ?1 


e a cada vez que (neste nosso caso) desejar encher a tela 
com um caractere, incluir uma outra linha com a instrução: 


[ FRÍNT@0, ‘‘caract ere' desejado* 1 1 

e fazer a chamada da sub-rotina com qualquer argumen¬ 
to válido. 

Empregando o utilitário DUMP, suprindo com o 
DOS500, para gerar rotinas USR, Ecnha o cuidado de fazê- 
lo em posições de memória sempre diferentes, seja lá quan¬ 
tas forem, a fim de que seja possível o uso de até 10 (quais¬ 
quer que sejam as que forem escolhidas), que irão residir 
em locais distintos e simultaneamente na RAM, evitando 
desta forma, o que poderíamos chamar de uma “briga de 
vizinhos”. 


LISTAGEM 1 


1 CLS 

2 PR1NT@413,‘P1AN0" 

3 REM ” SINTETIZA DOR DE TECLADO ** 

4 HEM ** P. FULVIO G. DEL PICCHIA ** 

5 REM * DICAS * GERACAO PROLOGICA ?* 

10 DEFINT A-2; DIM T(128) 

T5 REM * CARREGAR ROTINA DO TECLADO * 

20 POKE 16526,0: POKE 16527.125 

30 FOR X = 32000 TO 32023: READ D: POKE X D- NEXT X 

35 REM * DEFININDO LOCAL DE CHAMADA * 

36 REM • PARA SISTEMAS SEM DISCOS NAO USAR 
LINHA 37* 

37 DEPUS R0 - 32000 

40 DATA 205, 127. 10, 14, 255, 221,33, 255, 56 237 89 
69, 16, 254, 28,' 203, 155, 175, 221, 19Ò, 0, 200 24 241 
45 REM * CONVERTER CODIGO DO CARACTER 
PARA POSICAO DA TECLA * 

50 READ T(8), T(9), T(10), T(13), T(31) 

60 FOR I = 44 TO 59: READ T(i>- NEXT I 
70 FOR 1 = 64 TO 91: READ T(i NEXT I 
80 DATA 25, 26, 27, 38, 39, 47, .2, 48, 49, 10, 1,2 3 4 
5, 6, 7, 8. 9, 11, 37, 24, 28, 44, 42, 30, 16, 31, 32, 33, 21 
34, 35, 36, 46, 45, 22, 23, 14, 17, 29, 18, 20, 43 15 ' 41 ’ 
19, 40, 13 ’ ' ’ 

85 REM * AGUARDAR PRESSÃO DA TECLA * 

90 P$= INKEYS 

100 IF P$ = “” THEN 90 

105 REM * CONVERTER POSICAO DA TECLA P/FATOR 
DE FREQUÊNCIA* 

106 REM * E ENVIAR PARA A ROTINA EM LINGUAGEM 
DE MAQUINA * 

110 S = ASC(PS): V = T{S) 

120 N = 250 - 5*V 

125 REM * SISTEMAS SEM DISCOS USAR LINHA 130 
E NAO A 131* 

130 REM * X = USR(N) * 

131 X= USRO(N) 

140 GOTO 90 


Até o próximo número! 
P. Fuí vi o G , Del Picchia 
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aaar r m 

- - 


em um controlador de luzes, portas, 


televisores e segredos de cofres. 



f2' 


O seu computador pessoal (CP 500 ou CP 100), além 
de ser um poderoso equipamento de trabalho, pode se 
transformar num eficiente e fiel secretário particular, con¬ 
trolando o segredo de seu cofre, acendendo lâmpadas nos 
momentos adequados, ligando o seu televisor ou destran¬ 
cando uma porta. Para tanto, basta um circuito de inter¬ 
face para implementação desse sistema e os softwares 
adequados. Pronto! Num passe de mágica, o seu compu¬ 
tador transportará sua casa ou escritório direto para o sé¬ 
culo XXI. 

Para ajudá-lo nesta tarefa, a redação da revista Gera¬ 
ção Prológica realizou pesquisas técnicas para encontrar 
soluções de hardware e software que possibilitem lais apli¬ 


cações. Encontramos o programa Trava com Segredo* de¬ 
senvolvido por Howard Berenbon c publicado no livro 
Aplicações para o seu TRS-80, o qual permite a ativação 
de um circuito dc controle através da introdução de uma 
combinação no seu computador. Ele pode ser usado para 
abrir um cofre, acender uma lâmpada, ligar o seu televi¬ 
sor ou destrancar uma porta. 

Siga corretamente as instruções de operação, utilize so- 
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mente o* componentes e circuitos indicados e digite oí pro¬ 
gramas (em Basic Nível J ou lí, conforme indicação) com 
atenção para transformar o seu computador pessoal no 
mais eficiente e fiel secretário particular. 

INTERFACE E CONTROLE 

Us circuitos de mierlace e controle (figura Ijca lista 
de componentes (Tabela A) são fundamentais para a im¬ 
plantação deste programa: a porta de E/S para cassete é 
usada para ativar ü circuito; o plugue do cabo dc interli¬ 
gação do gravador cassete com o CF é conectado ao ja- 
que Jl do circuito de interface; os contatos normalmen¬ 
te abertos do reié Kl operam o circuito de controle; um 
reié de potência (K2) controla as lâmpadas ou os apare¬ 
lhos. Na versão Basic Nível I, o programa usa a instrução 
INPUT A para ativar o circuito. A instrução OUT 255,4 
é usada na versão Baste Nível II. 



FIGURA l: Circuito de interface e controle 


Lista de Componentes dos Circuitos 
de interface e Controle 

Item 

Descrição 

81 

Bateria de 9 volts 

B2 

Bateria de 6 volts 

Dl, D2 

Diodo de silício 1N914 ou equivalente 

Jl 

Jaque 

K2 

Reié de 5 ou 6 volts CG, 500 ohms, um 
pòlo, duas posições (Radio Shack 
275-004 ou.equivalente) 

Reié de & volts CC 3 350 ohms, um pó- 
lo, duas posições, corrente e tensão 
nominais: 3,5A e 117VGA (AlEied Elec¬ 
tronics 802-1SÔ0, série 1345 ou equi¬ 
valente) 

Outros 

Tomada CA; tinha de 117VCÁ com plu¬ 
gue; garras 
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UTILIZAÇÃO DA TRAVA 
COMPUTADORIZADA 

Para construir a trava ativada por computador você de¬ 
verá substituir o reié K2 por um solenoide. Veja a figura 
2 para verificar as alterações no circuito. Nesta constru 
ção, K1 e B2 são exatamente iguais aos da figura \. O so¬ 
lenoide é de 6 volts, 2 02 a, no máximo, 1/4” (Allied 
Electronics 802-1111 ou equivalente). O êmbolo do sole¬ 
noide é usado para trancar uma porta ou um cofre. 

Um sistema perfeito necessitaria dc um teclado auxiliai 
externo para introduzir a combinação. Isto eliminaria o 
acesso direto ao computador, impedindo os curiosos de 
mexer no seu programa, 

Um sistema de iluminação ou controle de aparelhos do 
mesticas poderão ser ativados também com este progra¬ 
ma. O aparelho é conectado na tomada CA para ativação 
Veja a figura 3 para ter uma idéia do desenrolar do 
programa. 





FIGURA 2 : Circuito de solenoide para uma trava computadorizada 


RUN 

TRAVA COM SEGREDO:TRS-80 NIVEL II 
DIREITOS AUTORAIS (C) 1980 DE HOWARD 
BERENBON 


INTRODUZA O MODO? 

'1 PARA GRAVAR A NOVA COMBINACAO 
2 PARA TER ACESSO A COMBINACAO 
? 1 

GRAVACAO DA NOVA COMBINACAO 
INTRODUZA ATE 250 CARACTERES, 
LETRAS E/OU NUMEROS 
? MARINHA 

COMBINACAO GRAVADA 
INTRODUZA O MODO? 

1 PARA GRAVAR A NOVA COMBINACAO 

2 PARA TER ACESSO A COMBINACAO 

? 2 . 

MODO DE ACESSO 

DIGITE A COMBINACAO 

? MARINHA 

ABERTO 

DIGITE UM F PARA FECHAR 

? F 

FECHADO 


FIGURA 3: Amostra da execução do programa Trava com Segredo 
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PROGRAMA NÍVEL I 


ü programa Nivd i permite a entrada de uma combi¬ 
nação de ate 13 dígitos. Você poderá gravar uma nova 
combinação, bastando digitar o número 1. Os dados de¬ 
vem ser introduzidos de acordo com o formato; X, V, Z. 
Cada variável deve conter* no máximo* seis dígitos. Ao 
digitar o número 2* você entrará no Modo dc Acesso para 
operação do circuito de controle, Introduza a combina¬ 
ção como nos seguintes exemplos: 


PROGRAMA NÍVEL il 

A versão Nível II permite a entrada dos números e le¬ 
tras constantes na combinação (no máximo, 250 caracte¬ 
res). Introduza a combinação como no exemplo abaixo: 


21034,111 >1802 ou 2153,101,0 


205ABCDEFGH 


As duas vírgulas sá o imprescindíveis, pois devem ser in¬ 
troduzidas sempre tres variáveis. 

O programa não sairá deste modo de operação. A in¬ 
trodução da resposta correta ativará o circuito dc contro¬ 
le e fará aparecer a mensagem ABERTO na teia. O circuito 
permanecerá ativado até que o botão de inicialização do 
computador seja pressionado. Se houver um erro na en¬ 
trada* aparecerá a mensagem ERRO, RED1G1TE. À men¬ 
sagem PROIBIDA A ENTRADA será exibida apôs três 
tentativas malsucedidas* Pressione BRBAK para voltar ao 
READY, 


LISTAGEM DO PROGRAMA DE TRAVA 
COM SEGREDO — NÍVEL I 


£™ÍT‘I RAVA C0M SEGREOOrTRS -80 NIVEL r 
110 PRINT"DIRElTOS AUTORAIS (C) 1980 DE 
HOWARD 8EREN80N" 

120 PRINT 

130 PRfNT"INTRODUZA O MODO?" 

140 PRINT" 1 PARA GRAVAR A NOVA 
COMBINACAO" 

ÍJoinSjt A >ARA TER ACESS0 A C0MBINACAO " 

170 fF A = 1 THEN 200 
180 IF A = 2 THEN 260 
190 GOTO 130 

200 PRINT"GRAVACAO DA NOVA COMBINACAO" 
210 PRINT"INTRODUZA ATE 6 OlGlTOS POR 
VARIAVEL" 

220 PRINT - NO FORMATO' X Y Z " 

230 INPUT X.Y.2 

240 PRINT - COMBINACAO GRAVADA" 

250 GOTO 130 
260 CLS 

270 PRINT" MODO DE ACESSO" 

280 PRINT 

290 PRINT“DIGITE A COMBINACAO" 

300 N =3 
310 INPUT U.V.W 
320 N = N - 1 

P< = U) ' (Y = V) ‘ (Z = W) THEN 350 
340 GOTO 390 
350 GOSUB 420 
360 INPUT #A 

370 PRINT- ENTRAOA PROIBIDA" 

380 GOTO 380 

390 IF N =0 THEN 370 

400 PRINT-ERRO, REDIGITE” 

410GOTO310 
420 PRINT "ABERTO" 

430 RETURN 


Este programa é semelhante ao da versão Nível I. po- 
rem você deve introduzir um C para desativar o circuito 
de controle. 


LISTAGEM DO PROGRAMA DE TRAVA 
■ COM SEGREDO — NÍVEL II 


100 PRIN7-TRAVA COM SEGREDO:TRS 80 NIVEL II' 
110 PRJNT"DIREITOS AUTORAIS (C) 1980 DE 
HOWARD BERENBON" 

120 PRINT:CLEAR 600 

130 PRINT' INTRODUZA O MODO?" 

140 PRINT" 1 PARA GRAVAR A NOVA 
COMBINACAO" 

150 PRINT" 2 PARA TER ACESSO A COMBINACAO" 
160 INPUT A 
170IF A=1 THEN 200 
180 IF A = 2 THEN 260 
190 GOTO 130 

200 PRINT’ GRAVACAO DA NOVA COMBINACAO' 
210 PR!NT"tNTRODU2 ATE 25(X CARACTERES," 

220 PRINT" LETRAS E/OU NUMEROS" 

230 INPUT A$ 

240 PRINT"COMBINACAO GRAVADA" 

250 GOTO 130 
260 CLS 

270 PRINT-MODO DE ACESSO" 

280 PRINT 

290 PRINT DIGITE A COMBINACAO" 

300 N = 3 
310 N = N - 1 
320 INPUT BS 

330 IF AS < > BS THEN 460 
340 GOSUB 490 
350 OUT 255,4 

360PRINT-OIGITE UM 'FPARA FECHAR" 

370 INPUT CS 


380 IF CS < > "F" THEN 360 

390 OUT 255,0 

400 PRINT-FECHADO" 

410 FOR A = 1TO990 
420 NEXT A 
430 GOTO 260 

440 PRINT“ENTRADA PROIBIDA” 

450 GOTO 450 

460 IF N = 0 THEN 440 

470 PRINT"ERRO. REDIGITE" 

480 GOTO 310 
490 PRINT"ABERTO” 


500 RETURN 
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FÚTOÊ PUNO BQfiGES 




O Computador: um Novo 
Super-Herói, dc Maria Cecí- 
lia C, Baranauskas e Heloisa 
V, R. Correia Silva, Cartgraf 
Editora, Crí 19,000. 

Este livro conta a história 
de pessoas que estiveram en¬ 
volvidas no processo dc evo¬ 
lução da informação* da ida¬ 
de da pedra até os tempos dos 
chips de silício. V ocê verá co¬ 
mo uma informação qual¬ 
quer é entendida e trabalha¬ 
da pelo computador em suas 
diversas partes. Para quem 
quiser ir mais além, existem 
também dois apêndices com 
programas escritos na lingua¬ 
gem Basic c programas feitos 
por crianças na linguagem 
LOGO, 



Basic Rápido: Além do Basic 
TRS-8Q* dc George A* Grat- 
zer e Thomas G. Gratzer, 
256 págs.. Editora Campus. 
Basic é a mais simples e po¬ 


pular linguagem de progra¬ 
mação. Entretanto, em mui¬ 
tos programas, a resposta do 
computador é inconveniente- 
mente lenta. A solução é Ba¬ 
sic Rápido. Qualquer coisa 
que você faça com o Basic dc 
seu TRS-80, Basic Rápido faz 
melhor ainda, garantem seus 
autores. Com este livro* é 
possível tornar três ou quatro 
vezes mais rápidos os cálcu¬ 
los aritméticos ou aumentar 
em mil vezes a velocidade de 
algumas funções. E tudo o 
que você precisa são os nomes 
de 60 rotinas na memória e 
menos de 20 instruções em 
linguagem Assembly. Mistu¬ 
re Basic e linguagem de má¬ 
quina e o resultado c a velo¬ 
cidade e eficiência. 



Introdução à Linguagem Ba¬ 
sic para Microcomputadores* 
de Carlos Lederman, Can- 
graf Editora* CrS 28.000. 

Quem procura algo mais 
que uma simples introdução 
na linguagem Basic* encontra 
nesta obra características 
fundamentais, como a ques¬ 
tão de agilidade. Um livro au- 
tüdidático e prático, ilustra¬ 
do com teclado de vídeo do 
microcomputador* onde o 
autor aborda temas para 
aqueles que não possuem co¬ 
nhecimento do Basic* assim 
como para os que já se inicia¬ 
ram nesta linguagem. 



Padrões em Programação — 
Mélodos e Procedimentos* 

de G. Longwonh, 234 pági¬ 
nas, Editora Campus. 

Fazer da programação 
uma atividade mais simples* 
gratifi cante e profissional é o 
objetivo deste manual* Des¬ 
tinado a constituir uma refe¬ 
rência útil para programado¬ 
res experientes* ele cobre to¬ 
das as etapas do processo que 
se inicia com o projeto e de¬ 
senvolvimento dos progra¬ 
mas, passa pelas fases de co¬ 
dificação e teste, e se estende 
às de implementação* manu- 
tenção* revisão e opti- 
mizaçâo. 



Além do Basic: Linguagem 
Assembl> para a Linha Sin¬ 
clair* de Nelson N. S. Santos, 
lólpágs*, Editora Campus. 

Este é o primeiro livro di¬ 
dático sobre linguagem de 


máquina para micros da li¬ 
nha Sinclair. Evitando as fór¬ 
mulas mágicas, o autor escla¬ 
rece as dúvidas e desvenda to¬ 
dos os mistérios desta difícil* 
mas fascinante linguagem. 
Através de uma abordagem 
simples ccoloqu ial, ensina as 
primeiras instruções As- 
sembiy em programas de 
complexidade crescente* que 
o leitor aprende a elaborar 
através de grande número de 
exercícios cuidadosamente 
selecionados. Um grande nú¬ 
mero de rotinas em lingua¬ 
gem de máquina enriquece e 
simplifica também os progra¬ 
mas em Basic, 



O Microcomputador no 
Consultório Médico, de Luiz 
Gonzaga Camargo Nasci¬ 
mento, Cartgraf Editora* 
CrS 24.000. 

Esta obra levanta os con¬ 
ceitos básicos da informática 
e demonstra os procedimen¬ 
tos de uma consulta médica, 
desde a identificação do pa¬ 
ciente, até a elaboração da re¬ 
ceita e da orientação para 
exames clínicos. Além disso* 
o livro dá destaque para a ela¬ 
boração de fluxogramas e 
diagramas de blocos e estu¬ 
do de anatomia do Basic. 
Quanto à parte clínica, são 
apresentadas as rotinas bási¬ 
cas para o desenvolvimento 
de programas. 


16 


GERAÇÃO PROLÓGICA 














POKE 


pfi/vr 


ÍNPU7 


PLOT umplot 
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O professor ideal 


informática. 


0 CP 200 S è o parceiro 
ideal dos iniciantes. 

pára os iniciantes desenvolve as primeiras 
nn mi inHn Hâ lições em com P u,a ç ào ' 

I ly 11 IUI lUw UG Qualquer criança pode utiliza 

lo para resolver tarefas 
escolares ou simplesmente 


curtir os mais divertidos jogos 
de vídeo-game. 
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QUEM TEM UM,TEM FUTURO. 


VOCÊ TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTÃO AÍ. E 0 
CP 400 COLOR É A CHAVE DESSA 
EVÒLUÇÃO PESSOAL E PROFISSIONAL 





PORQUÊ? 

PORQUE O CP4001 
COLOR Ê UM 
COMPUTADOR 
PESSOAL 
DETEMPO 

INTEGRAL: ÚTIL _____ 
PARA A FAMÍLIA TODA. O DIA 
INTEIRO. 

N A HORA DE SE DIVERTIR. POR 
EXEMPLO, ÉMUTOMAB 
EMOCIONANTE PORQUE. ALÉM DE 
OFERECER JOGOS INÉDITOS, 

ÉO ÚNICO COM DOIS JOYSTICKS 
ANALÓGICOS DE ALTA 
SENSIBILIDADE, QUE PERMITEM 
MOVIMENTAR AS LMAGENS 
EM TODAS AS DIREÇÕES, MESMO 

NA HORA DE TRABALHAR E 
ESTUDAR, O CP400 COLOR MOSTRA 
SEU LADO SÉRIO: MEMÓRIA 
EXPANSÍVEL, PORTA PARA COMU¬ 
NICAÇÃO DE DADOS, SAÍDA PARA 
IMPRESSORA E UMA ÓTLMA NITIDEZ 
COM IMAGENS COIDRIDAS 

COMO SE TUDO ISSO NÃO 
BASTASSE, A PROLÓGlCA AINÍM 
OFERECE A GARANTIA DE 
QUALIDADE DE QUEM É LÍDER NA 
TECNQLOGIA DE COMPUTA¬ 
DORES, E O PREÇO MAIS ACESSÍVEL 
NA CATEGORIA. 

NUMA FRASE: SE VOCÊ NÃO 
QUISER CHEGAR ATRASADO AO 
FUTURO, COMPRE SEU CP 400 





COLOR IMEDIATAMENTE. 

EMOÇÃO E INTELIGÊNCIA NUM 

EQUIPAMENTO SÓ . 

• IMAGENS COM ATÉ 9 CORES. 

•ÓTLMA RESOLUÇÃO: 49.152 PONTOS. 

• DUAS VERSÕES A SUA ESCOLHA: 

16K OU 64K DE MFjVIÓRIA RAM. 

• MEMÓRIA RAM EXPANSÍVEL: VOCÊ 
COMEÇA COM 16 KE PODE CHEGAR 
ATÉÓíK COM DISQUETES. 

• umiJZA CARTUCHOS PARA APLICA¬ 

TIVOS EJCGOS: 
BANO) DE DADOS 
EDITOR DE TEX 
TOS; PLANILHAS 
ELETRÔNICAS. 
GRÁFICOS. 

ENTRE OUTROS. 

• MEMÓRIA 
EXTERNA EM 
CASSETE OU DISQUETE 
DBK-SYSTEM.CP 450. 

• PORTA RS 232 C INCORPORADA, 
PERMITINDO COMUNICAÇÃO 
DE DADOS E ÜGAÇÃO DIRETA À 
IMPRESSORA 
SERIAL. 

•PERMITE COM¬ 
PETIÇÃO DE 2 
JOGADORES AO 
MESMO TEMPO. 

SEUS JOYSTICKS 
ANALÓGICOS 
OFERECEM INFI¬ 
NITAS POSIÇÕES 


NA TEIA, ENQUANTO OUTROS TÊM 
SOMENTE 
8 DIREÇÕES. 

• GRANDE QUANT 
D.ADE de 
PROGRAMAS 
À DISPOSIÇÃO; 

APLICATIVOS 
PESSOAIS. PROFIS¬ 
SIONAIS E JOGOS. L 

VEJA. TESTE ECOMPI 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PROLÓGlCA, 

TECNOLOGIA ■■■ 
PROLOGiCA ■■■ 


OFIS 


COMPUTADORES PESSOAIS 

RuA PTÓLOMEU. C5Q- V/LASQÇQRfíQ 
SÂÕ PAULO - $P - CtPO-s762 
FONt íPSX)ttT.iG3$ 































